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

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