Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:

var a,max,maxn,n: integer;
begin
  readln(a);
  max:=a; maxn:=1;n:=1;
  while a0 do begin
    readln(a);
    n:=n+1;
    if a>max then begin
      max:=a; maxn:=n;
    end;
  end;
  writeln('Максимальный : ',max,'  номер : ',maxn);
end.