Лб инф передел / 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.