[lxa85]

dasha131, опять напутала, что ж такое то.

Код:

program norma;
var
  n:integer;
  max:real;
  i:integer;
  a: Array [1..500] of real;
begin
  readln (n);
  max=0;
  for i:=1 to n do
  begin
    read (a[i]);
    if (ABS(a[i])>max) then max:=a[i];
  end;

  write(max:4:2);
end.

Теперь переписывай в while, для бесконечного числа вводимых величин.
Естественно цикл должен как-то заканчиваться. Либо вводом определенного числа, либо через ентер. Т.е. продумай этот момент.