Помогите с заданиям

[Rintas]

1.Создайте процедуру которая нарисует в графическом экране стрелку когда длина
ее ровна переменной а. Пользуясь процедурой сделайте програму которая на экране
нарисутет 10 таких стрелок. Длина первой будет ровна 400 точек а каждая
следующая короче на 20 точек.

2. Дано натуральное число н из интервала[10;50]. Напишите програму которая
случайно выбрала бы н чисел и вписало бы их в в 2 текстовых файла разделяя
пробелами.(разные числа в 2 файла). Испоьзуя функцию ЦРТ продемонстрируйте
работу програмы.

[Rintas]

Помогите плз вопрос жизни и смерти

[alex_fcsm]

Может сами придумаете куда вставить crt

var n,i,j:integer;
    a:array[1..50] of integer;
    f:text;
    
function Al(x:integer):boolean;
var k:integer;
    flag:boolean;
begin
flag:=true;
for k:=1 to i do
 if a[k]=j then flag:=false;
 al:=flag;
end;
    
begin
randomize;
n:=random(40)+10;
for i:=1 to n do
 begin
  repeat
  j:=random(1000);
  until Al(j);
  a[i]:=j;
 end;
assign(f,'c:\1.txt');
rewrite(f);
for i:=1 to n do
 write(f,a[i],' ');
close(f);
assign(f,'c:\2.txt');
rewrite(f);
for i:=1 to n do
 write(f,a[i],' ');
close(f);
end.