Pascal вывод минимального значения

[Базиля]

В первую очередь нужно добавить еще один массив Б
вот исправленный твой код

program v4;
type vector=array [1..50] of integer;
var
A,B:vector;
max1,max2,n,i:integer;

begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
write('b[',i,']=');
readln(b[i]);
end;
max1:=a[1];
max2:=b[1];
for i:=1 to n do
begin
if a[i]>max1 then
max1:=a[i];
if b[i]>max2 then
max2:=b[i];
end;
if max1>max2 then writeln('самое маленькое из 2-ух максимальных=',max1)
else writeln('самое маленькое из 2-ух максимальных=',max2);
end.

Можешь организовать ввод массива B через отдельный цикл, возможно тебе так будет удобней

[Biggie Smalls]

program v11;
var
A: array[1..50] of byte;
max_num, max_index: byte;
i: byte;

begin
randomize;

for i := 1 to 50 do begin
A[i] := random(50);
write (A[i]:3);
end;

max_index := 1;
max_num := A[1];

for i := 2 to 50 do
if A[i] > max_num then begin
max_index := i;
max_num := A[i];
end;


var
B: array[1..m] of byte;
max_num, max_index: byte;
i: byte;

begin
randomize;

for i := 1 to 50 do begin
arr[i] := random(50);
write (B[i]:3);
end;

max_index := 1;
max_num := B[1];

for i := 2 to 50 do
if arr[i] > max_num then begin
max_index := i;
max_num := B[i];
end;

writeln;
writeln ('Max = ',max_num);
writeln ('position: ', max_index);

end;
readln
end.


что то вот такое получается, но не работает, не пойму как конструкцию построить