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

[Biggie Smalls]

задан вектор А и В из n элементов n>=50. Найти наибольшие элементы и вывести на экран самое маленькое число


program v4;
type vector=array [1..50] of real;
var
A:vector;
b,c,n,i:integer;
min,t:real;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
readln (a[i]);
min:=(a[i]);
for i:=1 to n do
if a[i]<min then min:=a[i];
repeat
for i:=1 to 50 do
if a[i]>0 then
begin
t:=a[i];
t:=i+1;
end;
until
t:=n+1;
writeln ('perv pol =',t);
writeln ('minim=',min);
readln;
end.

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

[Базиля]

где потерял условие выполнения until ?

[Базиля]

И вопрос по условию
что значит найти наибольшие элементы? по отношению к чему их искать?

[Biggie Smalls]

сам условие до конца понять не могу, мутное какое то

[Базиля]

С минимальным все ясно, наверное требуется найти наибольшие по отношению к минимальному, или же опечатались и требуется найти мин и макс, но что-то как-то слишком уж большая опечатка получается

[Niro]

Что здесь непонятного? Ищем максимальные элементы в первом и втором массиве и находим среди этих двух максимальных минимальное и усё
P.S. наверное

[Базиля]

Да) Все верно) Упустил я по условию что дан второй массив ))

[Biggie Smalls]

а тогда все в корень не правильно?

[Biggie Smalls]

я что то вообще не могу понять как исправить

[Niro]

Делайте по новому.
Алгоритм поиска максимального элемента:

за максимальный элемент принимается первый элемент массива
в цикле с максимальным сравнивается следующий элемент массива, если он больше, то за максимум берем его иначе ничего не делаем
повторяем

так что ищете в первом массиве максимальный элемент и втором второй, затем сравниваем их по величине