Написать программу тремя видами циклических алгоритмов

uses crt;
var
  i,n:integer;
  max:real;
  X:array [0..4] of real;
BEGIN
  randomize;
  for i:=0 to 4 do
    X[i]:=random()*100-100; {получаются отр. числа(НЕ ЦЕЛЫЕ!) от -100 до -1}
  
  writeln('Viberite cikl proverki:');
  writeln('Dlya proverki cherez cikl "for to do" vvedite 1');
  writeln('Dlya proverki cherez cikl "repeat until" vvedite 2');
  writeln('Dlya proverki cherez cikl "while do" vvedite 3');
  readln(n);
  clrscr;
  
  write('Chisla:');
  for i:=0 to 4 do
    write(X[i]:7:2);
  writeln;
 
  case n of
    1: begin
         max:=X[0];
         for i:=0 to 4 do
           begin
             if X[i]>max then
               max:=X[i];
           end;
         writeln('Maximalnoe iz chisel = ',max:7:2);
       end;
       
    2: begin
         max:=X[0];
         i:=0;
         repeat
           inc(i);
           if X[i]>max then
             max:=X[i];
         until i=4;
         writeln('Maximalnoe iz chisel = ',max:7:2);
       end;
 
    3: begin
         max:=X[0];
         i:=1;
         while i<=4 do
           begin
             if X[i]>max then
               max:=X[i];
             inc(i);
           end;
         writeln('Maximalnoe iz chisel = ',max:7:2);
       end;
  end;
END.