Pascal ABC. Написать процедуру, которая выводит на экран первые 3 элемента из массива, которые не равны друг другу. Или процедуру нахождения 3 максимальных элементов массива, которые не равны друг другу

Var

arr:array[0 ... 1000] of integer;

n, i: integer;

procedure tri_el; {процедура которая выводит на экран первые 3 элемента из массива, которые не равны друг другу }

var

q, j: integer;

o:array[1 ... 3] of integer; { массив чисел, которые не равны друг другу }

begin

write (arr [1],' ');

q:=1;

o[q]:=arr[1];

i:=1;

while q3 do

begin

i:=i+1;

if q=1 then

if arr[i]o[1] then

begin

write (arr[i],' ');

q:=q+1;

o[q]: = arr[i];

end;

if q=2 then

if (arr[i]o[1]) and (arr[i]o[2]) then

begin

write (arr[i]);

q:=q+1;

end;

end;

end;

procedure tri_max; {процедура нахождения 3 максимальных элементов массива, которые не равны друг другу} var

mks:array[1 ... 3] of integer; {массив максимальных значений} begin

for i:=1 to 3 do

mks[i]:=0;

for i:=1 to n do

if mks[1]< arr[i] then

begin

mks[3]:=mks[2];

mks[2]:=mks[1];

mks[1]: = arr[i];

end else

if (mks[2]< arr[i]) and (arr[i]mks[1]) then

begin

mks[3]:=mks[2];

mks[2]: = arr[i];

end; else

if (mks[3]< arr[i]) and (mks[2] arr[i]) then mks[3]: = arr[i];

write (mks[1],' ', mks[2],' ', mks[3]); {вывод на экран 3 максимальных элементов массива, которые не равны друг другу }

end;