Welcome stranger

Pascal-fokin_tabulka.txt

var
    a:array[1..10000,1..10000]of integer;
    x,y,n,m:integer;
begin
        write('pocet radku: ');readln(n);
  write('pocet sloupcu: ');readln(m);
  writeln('puvodni pole: ');
  for x:= 1 to m do begin
    for y:= 1 to m do begin
      a[x][y]:= random(50)+1;
      write(a[x][y]:2, ' ');
    end;
    writeln();
  end;
  writeln('nove pole: ');
  for x:=1 to n do
  begin
    a[x,x]:=0;
  end;
  for x:=1 to n do
  begin
    for y:=1 to m do
    begin
      write(a[x,y],'  ');
    end;
    writeln;
  end;
  readln;
end.