PASCAL Двумерные массивы

[Kyz92009]

Напишите пожалуйста программу,завтра надо сдать а я вообще не понимаю чё тут надо делать!
Задание:
Дан вещественный массив из 5 стрк и четырёх столбцов.Строку содержащую максимальный элемент поменять местами с первой.

[Kyz92009]

uses crt;
var Matrix:array[1..5,1..4] of real;
max,buf:real;
i,j,imax:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin
writeln('Введите элемент ',i,' ',j);
readln(Matrix[i,j]);
end;
end;
clrscr;
writeln('Матрица имеет следующий вид:');
for i:=1 to 5 do
begin
for j:=1 to 4 do
write(Matrix[i,j]:10:2);
writeln;
end;
max:=-maxint; imax:=1;
for i:=1 to 5 do
begin
for j:=1 to 4 do
if Matrix[i,j]>max then
begin
max:=Matrix[i,j];
imax:=i;
end;
end;
writeln('Максимальный элемент равен ',max:2:2,' и находится в строке №',imax);
for j:=1 to 4 do
begin
buf:=Matrix[imax,j];
Matrix[imax,j]:=Matrix[1,j];
Matrix[1,j]:=buf;
end;
writeln;
writeln('Преобразованная матрица имеет следующий вид:');
for i:=1 to 5 do
begin
for j:=1 to 4 do
write(Matrix[i,j]:10:2);
writeln;
end;
readln;
end.
спасибо за помощь нашёл решение винете сам!