Помогите пожалуйста, это оценка очень главна!Нужно составить задачку с использованием

uses crt;

const n=3;

var i,s:integer;

 k:string;

 a:array[1..10] of integer;

begin

 repeat

 clrscr;

 s:=0;

 writeln('Задйате стаж работы в анкеты ');

 for i:=1 to n do begin

 write('Анкета ', i,': '); readln(a[i]);

 if a[i]gt;=5 then inc(s)

 end;

 writeln('По реузльтатам подходят ', s,' анкеты');

 writeln('Повторить - Enter. Выход - хоть какой знак + Enter');

 readln(k);

 until klt;gt;''

end.