Переработать код в паскаль

переработать код в паскаль
Вот задача:
есть массив а(6,8), нужно поменять строку что содержит минимальный елемент на строку что содержит максимальный елемент. Можно допустить что все елементы массива едины. (Turbo pascal)
Вот код мой:

program laba8_3;
var a:array[1..6] of integer;
b:array[1..8] of integer;
i,j,max,min:integer;
begin
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
readln(a[i,j]);
max:=a[1];
min:=a[i,j];
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
if a[i,j]>max then max:=a[i,j];
end;
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
if a[i,j]= max then a[i,j]:= min-1;
if a[i,j]= min-1 then a[i,j]:=a[i,j]+1;
end;
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
writeln(a[i,j]);
End

вот такая была идея но не работает помогите плиз!

  • 1. Условие непонятно. Что значит "все елементы массива едины"?
    2. Код лучше выкладывать на pastebin.com . Мне кажется, что
    if a[i,j]>max then max:=a[i,j];
    было чем-то другим в оригинале.
    3. "не работает" - не описание проблемы. Что конкретно происходит?
    4. Начинаю читать условие:
    >есть массив а (6,8)
    Но в программе такой массив не задан, вместо этого есть
    var a:array[1..6] of integer;
    b:array[1..8] of integer;
    - два одномерных массива.
    Дальше читать стоит?