Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:
var a,max,maxn,n: integer;
begin
readln(a);
max:=a; maxn:=1;n:=1;
while a<>0 do begin
readln(a);
n:=n+1;
if a>max then begin
max:=a; maxn:=n;
end;
end;
writeln('Максимальный : ',max,' номер : ',maxn);
end.
Смотри вложение
................................
Учить переводить числа между СС уж не буду, но почитай, а то так на контрольной влипнешь х)