Prosim o pomoc s programom v pascale...:(

program uloha;
uses CRT;

var matica:array[1..5,0..5] of integer;
  i,j,sucet,minimum,maximum,minriadok,maxriadok:integer;

begin
clrscr;  {zmažem display}

   for I:=1 to 5 do begin    {vsetky riadky}
      for J:=1 to 5 do begin {aj stlpce}
        matica[i,j]:=random(100)-50;  {naplnim nahodnymi hodnotami}
      end;
   end;

  for I:=1 to 5 do begin  {prejdem vsetky riadky}
    sucet:=0;
     for j:=1 to 5 do sucet:=sucet+matica[i,j]; {zratam sucet hodnot}
     matica[i,0]:=abs(sucet);  {a na zaciatok riadku si ulozim absolutnu hodnotu}
  end;

  minimum:=matica[1,0];  {minimum aj maximum beriem prvy prvok}
  maximum:=matica[1,0];
  for I:=1 to 5 do begin  {prejdem celu maticu}
    if matica[i,0]>=maximum then begin
      maximum:=matica[i,0]; {najdem maximumu}
      maxriadok:=i;          {zapamatam si riadok}
      end;
     if matica[i,0]<=minimum then begin
      minimum:=matica[i,0];   {rovnako ako s maximom}
      minriadok:=i;
      end;
  end;

  for I:=1 to 5 do begin
    for J:=1 to 5 do write(matica[i,j]:5);  {vypisem maticu}
  writeln;
  end;        {aj vysledky}
  writeln('Maximum je v ',maxriadok,'. riadku a jeho absolutna hodnota je: ',maximum);
  writeln('Minimum je v ',minriadok,'. riadku a jeho absolutna hodnota je: ',minimum);
end.

uses crt;
const n=3;
var matica:array[1..n,1..n] of byte;
      a,b,c,d:byte;
BEGIN               clrscr;
for a:=1 to n do
for b:=1 to n do
matica[a,b]:=random(50);
for a:=1 to n do
for c:=1 to n-1 do
for b:=c+1 to n do
if matica[a,c]<matica[a,b] then
begin
d:=matica[a,c];
matica[a,c]:=matica[a,b];
matica[a,b]:=d;
end;

for a:=1 to n do begin
for b:=1 to n do
write(matica[a,b],' ');writeln; end;

END.