Двумерные массивы, операции над ними

program  lab_5A;
Uses Crt;
var x: array [1..11] of real;
    y: array [1..11] of real;
    z: array [1..11, 1..11] of real;
    l: array [1..11, 1..11] of real;
    v: array [1..11] of real;
    a, b, c, d, min, f: real;
    i, j, m, n, k, s: integer;
begin
Clrscr;
writeln('vvedite a, b, c, d, n, m');
read(a, b, c, d, n, m);
for i:=1 to n+1 do
    x[i]:=a+(i-1)*(b-a)/(n);
for j:=1 to m+1 do
    y[j]:=c+(j-1)*(d-c)/(m);
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
           z[i,j]:=y[j]/(sqrt(1+x[i]*x[i]))
    end;
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
       write(z[i, j]:6:2, ' ');
       writeln
    end;
for i:=1 to n+1 do
    begin
       for j:=1 to m+1 do
           begin
              l[i, j]:=z[i, j]
           end;
    end;
for i:=1 to n do
    begin
       for j:=1 to m do
           begin
              min:=l[i, j];
              for k:=j+1 to n+1 do
                  begin
                     if min>l[i, k]
                     then
                        begin
                           l[i, j]:=min;
                           s:=k
                        end;
                  end;
              f:=z[i, j];
              l[i, j]:= min;
              l[i, k]:=f;
            end;
              for i:=1 to n+1 do
                  begin
                     for j:=1 to m+1 do
                         begin
                            write(l[i,j]:6:2, ' '); {matrix L}
                            writeln;
                         end;
           end;
    end;
for j:=1 to m+1 do
    begin
       v[i]:=l[1, j]-l[2, j];
       write(v[i]:6:2, ' '); {vector V}
       writeln;
    end
end.

Program mas;
Uses crt;
Const n=10;
Var x,y: array[1..n] of real; i,a,b,c,d: byte;
Begin
d:=1;
b:=1;
a:=0;
c:=0;
Clrscr;
For i:=1 to n do
begin
x[i]:=a+(i-1)*(b-a)/n;
y[i]:=c+(i-1)*(d-c)/n;
end;
For i:=1 to n do
Write(x[i]:4:2,'  ');
Writeln;
For i:=1 to n do
Write(y[i]:4:2,'  ');
End.