Дорогие программисты, помогите пожалуйста!!!

[Альбиша]

Помогите, пожалуйста, отладить программку на Pascal
Задача такая: В произвольно заданном двумерном массиве размера 4х5 определить 3 элемента с наибольшими значениями.

Вот ключ:
________________________
Program 1;
const
m=4;
n=5;
var
A: array [1..m,1..n] of integer;
max,max1,max2,i,x,y,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
writeln('vvesti elementi massiva ');
readln(A[i,j]);
end;
writeln;
end;
max:=A[1,1];
max1:=A[1,1];
max2:=A[1,1];
for i:=1 to n do
for j:=1 to m do
if A[i,j]>max then max:=A[i,j];
if (A[i,j]>max1) and (max<>max1) then max1:=A[i,j];
if (A[i,j]>max2) and (max1<>max2) then max2:=A[i,j];
writeln('max 1= ',max);
writeln('max 2= ',max1);
writeln('max 3= ',max2);
readln;
end.
_______________________________
Исправьте, если не сложно.

[MalexG]

Предположим, что первые три элемента первой строки наибольшие:

max:=A[1,1];
max1:=A[1,2];
max2:=A[1,3];

Измените условия:

case j mod 3 of
  0: if (A[i,j] > max2) and (max2 <> max) and (max2 <> max1) then max2 := A[i,j];
  1: if (A[i,j] > max1) and (max1 <> max) and (max1 <> max2) then max1 := A[i,j];
  2: if (A[i,j] > max) and (max <> max1) and (max <> max 2) then max := A[i,j];
end;

[AlDelta]

Название.
Закрыто.