Пожалуйста, помогите!!!Составить программку на языке Паскаль, которая запрашивает у

Program n_5;
var
   a, b, c: real;
procedure n_1;
begin
 if ((alt;b) and (agt;c)) or ((alt;c) and (agt;b)) then
  write (a)
 else
  if ((blt;a) and (bgt;c)) or ((blt;c) and (bgt;a)) then
   write (b)
  else
   if ((clt;a) and (clt;b)) or ((clt;b) and (cgt;a)) then
    write (c);
end;
begin
 writeln ('Введите три трёхзначных числа');
 readln (a);
 readln (b);
 readln (c);
 if ((a gt;= 100) and (a lt;= 999) and (a lt;gt; b) and (a lt;gt; c)) and ((b gt;= 100) and (b lt;= 999) and (b lt;gt; a) and (b lt;gt; c)) and ((c gt;= 100) and (c lt;= 999) and (c lt;gt; a) and (c lt;gt; b)) then n_1
 else
  write ('ERROR');
end.

Var i, x, y: integer;

a: array [1..255] of integer;
function sr(i: integer):string;

begin

sr:=inttostr(i)[2];

end;
begin

writeln('Vvedite kol-vo chisel');

read(x);

for i:=1 to x do read(a[i]);

writeln();

for i:=1 to x do writeln(sr(a[i]));

end.