Как написать программу в паскале

begin
var a := ArrRandom(10,0,9);
a.Println;
var max_vals1, max_vals2:integer;
if a[0] > a[1] then begin
max_vals1 := a[0];
max_vals2 := a[1];
end else begin
max_vals1 := a[1];
max_vals2 := a[0];
end;
for var i := 2 to 9 do
if a[i] > max_vals1 then begin
max_vals2 := max_vals1;
max_vals1 := a[i];
end
else if a[i] > max_vals2 then max_vals2 := a[i];
writeln('max_vals1=',max_vals1,'; max_vals2=',max_vals2);
end.

var min_vals : array [1..2] of integer;
data: array [1..10] of integer;
...
Здесь ввод
...
if data[1] < data[2] then begin
min_vals[1] := data[1];
min_vals[2] := data[2]
end else begin
min_vals[1] := data[2];
min_vals[2] := data[1]
end;
for i := 3 to 10 do begin
if data[i] < min_vals[1] then begin
min_vals[2] := min_vals[1];
min_vals[1] := data[i]
end else if data[i] < min_vals[2] then begin
min_vals[2] := data[i]
end;

В результате в min_vals[1] - минимальный, в min_vals[2] - следёющий по величине.
Но если в массиве есть два идентичных минимальных элемента, они оба окажутся в min_vals.

3 переменных
1я -- есть или нет (изначально ноль)
2я -- текущее значение
3я -- входное
и по ходу ввода во вторую отправлять меньшее текущего или текущее, если новое больше
и первой присваивать единичку если такое случилось

if a[i]>premax then
begin
a[i]:=premax;
if premax>max then max=premax;
end;
вроде в premax должен оказаться второй по величине элемент