Стандартные операции с матрицами

Const
    N = 5;
Var
    A:Array[1..20,1..20] Of Integer;
    k,x,y,Num:integer;
  
Procedure Check(Var i,j:Integer);
    Begin
      If i = 0 Then i:=i+1
        Else
          If i > N Then
            Begin
              i:= N;
              j:= j+2;
            End;
    End;  
Begin
    x:=1;
    y:=1;
    k:=1;
    For Num:=1 To N*N Do
        Begin
            A[x,y]:=Num;
            x:=x + k;
            y:=y - k;
        k:=k*(1 - 2*Ord((x = 0)Or(y = 0)Or(x > N)Or(y > N)));
        If Odd(N) Then
            Begin
                Check(x,y);
                Check(y,x);
            End
                Else
            Begin
                Check(y,x);
                Check(x,y);
            End;
        End;
    For x:=1 To N Do
        Begin
            For y:=1 To N Do
                Write(a[x,y]:3);
            WriteLn;
        End;
    ReadLn;
End.

const n=5;
var a:array[1..n,1..n] of integer;
    k,x,y,num:integer;
begin
x:=1;
y:=1;
k:=1;
for num:=1 to n*n do
 begin
  a[x,y]:=num;
  x:=x + k;
  y:=y - k;
  if (x = 0)or(y = 0)or(x > n)or(y > n) then k:=-k;
  if odd(n) then
   begin
    if x = 0 then x:=x+1
    else if x > n then
     begin
      x:=n;
      y:=y+2;
     end;
    if y = 0 then y:=y+1
    else if y > n then
     begin
      y:=n;
      x:=x+2;
     end;
   end
  else
   begin
    if y = 0 then y:=y+1
    else if y > n then
     begin
      y:=n;
      x:=x+2;
     end;
    if x = 0 then x:=x+1
    else if x > n then
     begin
      x:=n;
      y:=y+2;
     end;
   end;
  end;
for x:=1 to n do
 begin
  for y:=1 to n do
  write(a[x,y]:3);
  writeLn;
 end;
end.

const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    n,m,i,j,jp:integer;
begin
repeat
write('Количество строк до ',nmax,' n=');
readln(n)
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    repeat
    a[i,j]:=-10+random(21);
    until a[i,j]<>0;//матрица без нолей
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jp:=0;
  j:=m;
  while(j>=1)and(jp=0) do
  if a[i,j]<0 then jp:=j
  else j:=j-1;
  if jp>0 then a[i,jp]:=0;
 end;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
 
end.