задача с массивом

[bonys91]

написать программу которая проверяла бы находится ли в массиве введённое с клавиатуры число.
Подскажите пожалуйста какае здесь ошибки!!!
program zadacha;
var i,n:integer;
t:array[1..5] of real;
flag:boolean;
begin
for i:=1 to 5 do
begin
writeln ('vvedite element massiva');
readln (t[i]);
writeln('vvedite chislo');
readln(n);
end;
flag:=false;
for i:=1 to 5 do
if t[i]=n then
flag:=true;
writeln('flag');
readln;
end.

[Taures_tek]

writeln('flag=',flag);
наверное в этом

[Sazary]

writeln('vvedite chislo');
readln(n);

Число нужно вводить один раз (оно ведь одно). Поэтому этот кусок должен быть вне цикла.
И в конце:

writeln(flag);

uses crt;

var i,n:integer;
t:array[1..5] of real;
flag : boolean;

begin
clrscr;
for i:=1 to 5 do
 begin
 writeln ('vvedite element massiva');
 readln (t[i]);
 end;

writeln('vvedite chislo');
readln(n);
flag:=false;
for i:=1 to 5 do 
 if t[i]=n then
  flag:=true;
writeln(flag);

readln;
end.

[INVAZIA]

program zadacha;
uses crt;
var i,n,p:integer;
t:array[1..5] of real;

begin
clrscr;
writeln('vvedite chislo');
readln(n);
writeln ('vvedite elementi massiva');
for i:=1 to n do
readln (t[i]);
clrscr;

writeln('dlya proverki vvedite 4islo');
readln(p);
for i:=1 to n do
if t[i]=p then
writeln('naydeno 4islo s klaviaturi')
else
writeln('ne naydeno');
readln;
end.

[bonys91]

огромное спасибо век не забуду!!!!!!!!!!