Задачи по массивам

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
type arr=array [1..100,1..100] of Integer;
var mas_start,mas_finish:arr;
    i,j,m,n:integer;
begin
  Randomize;
  Write('Enter - = ');Readln(n);
  Write('Enter | = ');Readln(m);
  For i:=1 to n do
    begin
      for j:=1 to m do
        begin
          mas_start[i,j]:=Random(25);
          mas_finish[n+1-i,j]:=mas_start[i,j];
        end;
    end;
  Writeln('Array [start]');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write(mas_start[i,j],' ');
        end;
    Writeln;
    end;
  Writeln('Array [finsih]');
   for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write(mas_finish[i,j],' ');
        end;
    Writeln;
    end;
  Readln;
end.