Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / CHERNOVA

Program lab_5;
{Chernova Nastya M-178, Var #10}
Var
M,N,i,j,jmin,j1,w,k:integer;
Fin, Fout: text;
Min,r:real;
A: array [1..7,1..7] of real;

Label
Vvod_M, Vvod_N, Vvod_w;
Begin
Vvod_M:
Writeln ('vvedite chislo strok massiva ');
Readln(M);
If (M<1) or (M>7) then
begin
writeln ('nedopustimoe znachenie ');
goto Vvod_M;
end;
Vvod_N:
Writeln('vvedite chislo stolbcov massiva ');
readln(N);
if (N<1) or (N>7) then
begin
writeln('nedopustimoe znachenie ');
goto Vvod_N;
end;
Assign (Fin,'S:\kurs_1\_Data\DATF.txt');
Reset(Fin);
For i:=1 to M do
for j:=1 to N do
Read (Fin, A[i,j]);
Close(Fin);
assign (Fout,'F1.txt');
rewrite(Fout);
Writeln (Fout,'isxodnyi massiv iz ',M,'x',N,' elementov');
for i:=1 to M do
begin
for j:=1 to N do
write(Fout, A[i,j]:2);
writeln(Fout);
end;
Writeln(Fout);
Vvod_w:
Writeln('vvedite nomer stolbca ');
readln(w);
If (w<2) or (w>N) then
Begin
Writeln('nedopustimoe znachenie ');
goto Vvod_w;
end;

for j:=1 to n do
begin
for i:=1 to m-1 do
for k:=1 to m-i do
if A[k,w]>A[k+1,w] then
begin
r:=A[k,w];
A[k,w]:=A[k+1,w];
A[k+1,w]:=r;
end;
end;
Writeln (Fout,'sortirovanyi massiv iz ',M,'x',N,' elementov');
for i:=1 to M do
begin
for j:=1 to N do
write(Fout, A[i,j]:2);
writeln(Fout);
end;
Close(Fout);
END.