одномерные массивы

[Seregga]

приветствую Вас товарищи программисты! помагите пожалуста с решением задачи в delphi7,0....вот задача: Даны целые числа K,N и набор из N целых чисел. Если в наборе присутствует число, меньше K, то вывести True; в противном случае вывести False. (числа водяться рандомом). Буду весьма благодарен за оказаную помощь в решении данной задачи.

[Pein95]

const
n=10;
var
k:integer;
a:array [1..n] of integer;
i:integer;
begin
readln(k);
for i:=1 to n do
a[i]:=random(30);

for i:=1 to n do
if a[i]<k then writeln ('true')
else writeln ('false');
end;

не проверял

[MoBLer]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
k,i:integer;
n:array[1..10]of integer;
s:string;
begin
write('k=');
readln(k);
for i:=1 to 10 do
begin
readln(n[i]);
if n[i]<k then s:='true';
end;

writeln(s);
readln
end.