Найти максимальный из первых пяти элементов массива

uses CRT;
var
a:array[1..100000] of integer;
n,aa,b,x,res:integer;
Begin
 write('Ââåäèòå a: ');
  readln(aa);
 write('Ââåäèòå b: ');
  readln(b);
 n:=1;
 for x:=aa to b do
  Begin
   a[n]:=x;
   inc(n);
  end;
 x:=a[1];
 for n:=2 to 5 do
  if a[n]>x then x:=a[n];
 write('Ñàìûé áîëüøîé ýëåìåíò, èç ïåðâûõ ïÿòè: ', x);
End.

uses
  CRT;
 
var
  C: array[1..100] of real;
  i, n: byte;
  a, b, x, p: real;
 
begin
  cls;
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  if a > b then //Если a > b, то меняем значения a и b местами
  begin
    p := a;
    a := b;
    b := p
  end;
  writeln('Введите количество элементов массива (n <= 100): ');
  repeat
    write('n = ');
    readln(n)
  until (n >= 5) and (n <= 100);
  writeln('Массив ', n, ' случайных элементов:');
  for i := 1 to n do
  begin
    c[i] := random * (b - a) + a; //Случайное число с интервала [a; b)
    write('  ', c[i]:0:3);
    if i = 1 then x := c[1]
    else
      if (i <= 5) then
        if c[i] > x then x := c[i]
  end;
  writeln;
  write('Самый большой элемент, из первых пяти: ', x:0:3);
  writeln
end.