Найти максимальное значение с 5 введённых чисел с клавиатуры

Program Xai;
uses crt;
var a,b,c,d,e,max:real;
Begin 
    clrscr;
    writeln('Введите 5 чисел');
    readln(a,b,c,d,e);
    if a>b then max:=a else max:=b;
    if c>max then max:=c;
    if d>c then max:=d;
    if e>d then e:=max;
    writeln('Максимальное значение является---> ',max);
    readln
end.

var
  i: integer;
  max: real;
  mas: array[0..4] of real;
 
begin
    Writeln('Введите пять чисел:');
    Readln(mas[0], mas[1], mas[2], mas[3], mas[4]);
    max := mas[0];
    for i := 0 to Length(mas) - 1 do
    begin
      if mas[i] > max then
      begin
        max := mas[i];
      end;
    end;
    Writeln('Max=' + FloatToStr(max));
    Readln;
end;

uses crt;
var a,max:real;
i:byte;
begin
clrscr;
writeln('Vvedite 5 chisel:');
i:=1;max:=1e-324;{наименьшее число типа real}
repeat
readln(a);
if a>max then max:=a;
inc(i);
until i>5;
writeln('Max=',max:0:3);
readln
end.

var a: array[1..5] of real;
i: integer;
max: real;
begin
for i:=1 to 5 do read(a[i]);
writeln;
max:=a[1];
for i:=2 to 5 do if a[i]>max then max:=a[i];
write('max=',max);  
end.

var m, t: Real; n: Integer;
begin
  Read(m);
  for n:=3 downto 0 do begin
    Read(t); if m<t then m:=t;
  end;
  WriteLn(m);
end.