Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.

Будем считать, что ввод значения = 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.