переделать из паскаля в делфи

[Shenan]

Известно, что из четырех чисел одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n.

паскаль:

uses crt;
var a : array[1..4] of real;
i,j,s,n : integer;
begin
clrscr;
for i:=1 to 4 do
  begin
  write('a',i,'= ');
  readln(a[i]);
  end;
writeln;

for i:=1 to 4 do
  begin
  s:=0;
  for j:=1 to 4 do
   if a[i] = a[j] then inc(s);
  if s=1 then n := i;
  end;
writeln('n= ',n);
readln;
end.

делфи? помогите плиз кто может!

[[CODER]]

В начало кода добавь

{$APPTYPE CONSOLE}

И удали очистку консоли вместе с модулем, на делфи она не нужна.

[Stilet]

на делфи она не нужна.

Нужна если нужно, но очистка в Делфи по другому прописывается.

[Shenan]

Спасибо огромное!!)