Двумерные массивы в Паскале

[Веселина]

Ввести двумерный массив размером 7*4. Найти наименьший элемент массива. Поменять строку, содержащую этот элемент, с последней строкой массива.

[ByAlex]

Сообщение от Веселина

Ввести двумерный массив размером 7*4. Найти наименьший элемент массива. Поменять строку, содержащую этот элемент, с последней строкой массива.

Держи -

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  min,minj,temp,i,j:integer;
  a:array[0..9,0..9] of integer;
begin
  // ввод массива
  writeln('Vvedite massive [7,4]:');
  for i := 1 to 4 do
    for j := 1 to 7 do
      read(a[i,j]);
  // поиск минимальной позиции
  min:=a[1,1];
  for i := 1 to 4 do
    for j := 1 to 7 do
    begin
      if a[i,j]<min then
      begin
        min:=a[i,j];
        minj:=i;
      end;
    end;
  // перестановка местами, если минимальный элемент меньше 4
  if minj<>4 then
  begin
    for j := 1 to 7 do
    begin
      temp:=a[minj,j];
      a[minj,j]:=a[4,j];
      a[4,j]:=temp;
    end;
  end;
  // вывод массива
  writeln;
  writeln('Result massive:');
  for i := 1 to 4 do
  begin
    for j := 1 to 7 do
      write(a[i,j],' ');
    writeln;
  end;
  readln;
  readln;
end.