МАтрицы, перестановка строк.

program v_11_1;
uses crt;
var i,j,k,l,m,n,h,y:integer;
    min,max,R,x,t:real;
    v:array[1..10,1..10] of real;
 
procedure w1(t1:integer);
var i,j:integer;
 
begin
 for j:=1 to t1 do begin
 for i:=1 to t1 do begin
   v[i,j]:=random*200-100;
   end; end;
 
   writeln('kontrol vbivod massiva');
   for i:=1 to t1 do begin
   for j:=1 to t1 do begin
   write(v[i,j]:5:1);
   write(' ');
   end;
   writeln(' ');
   end;
end;
 
begin
clrscr;
randomize;
write('vvedite argument x=');
readln(x);
R:=exp(x-1.1)-cos(2*x);
 
if x>=2 then t:=1/r/r/r else
if x<=2 then t:=ln(abs(r)) else t:=sqrt(9+sqr(r));
if (t>=3) and (t<=9) then h:=round(t) else h:=10;
writeln('zelaja 4ast modulja ravna=',h);
 
w1(h);
write('vvedite nomer stroki=');
readln(y);
min:=v[y,l] ;
max:=v[y,l];
for j:=1 to h do begin
if v[y,j]<min then begin min:=v[y,j];
k:=y;
l:=j;
end;
if v[y,j]>max then begin max:=v[y,j];
m:=y;
n:=j;
end;
v[k,l]:=max;
v[m,n]:=min;
writeln('itogoviy vbivod massiva');
for i:=l to h do begin
for j:=l to h do begin
write(v[i,j]:5:1);
write(' ');
end;
writeln(' ');
end;
readln;
end;
 
end.