Составить программку на языке паскаль: из 100 чисел избирают 20 праизвольным

Пишем программу:
Pascal.
program qq;
const N = 20;
var
a:array [1.N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do begin
a[i]:= random(101);
write (a[i]:3);
end;
writeln;
for I:=1 to N do
if a[i]=50 then
writeln(Да,i)
else writeln (Нет);
readln;
end.
Программа написана.