operácie s maticami

//Vygeneruje maticu cisiel rozmer je RxS program maticu vypise
//1) sucet vsetkych prvkov matice
//2) sucet cisiel na hlavnej diagonale
//3) sucet cisiel po obvode matice
//4) Sucet cisiel v prvom riadku
//5) Sucet cisiel v dolnom riadku
program operaciesmaticami;
{$APPTYPE CONSOLE}
uses SysUtils;
var r,s,i,j:byte;
    c:array[1..255,1..255] of byte;
    sp,spd,spo,spr,sps:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet riadkov: ');
  readln(r);
  write('Zadajte pocet stlpcov: ');
  readln(s);
  sp:=0; spd:=0; spo:=0; spr:=0; sps:=0;
  randomize;
  for i:=1 to r do
    begin
      for j:=1 to s do
        begin
          c[i,j]:=random(100);
          write(c[i,j]:5);
          sp:=sp+c[i,j];
          if i=j then spd:=spd+c[i,j];
          if (i=1) or (i=r) or (j=1) or (j=s) then spo:=spo+c[i,j];
          if i=1 then spr:=spr+c[i,j];
          if i=r then sps:=sps+c[i,j];
        end;
      writeln;
    end;
  writeln('Sucet cisiel je: ',sp);
  writeln('Sucet na hlavnej diagonale je: ',spd);
  writeln('Sucet po obvode je: ',spo);
  writeln('Sucet prveho riadka je: ',spr);
  writeln('Sucet posledneho riadka je: ',sps);
  readln;
end.