можно немного изменить (думаю так правильней будет)
Program trylala;
uses crt; //в Turbo Pascal 7.0 нету модуля wincrt
var a,k,n,kol:integer;
begin
clrscr;
writeln('Введите количество элементов'); /* логичней узнать количество элементов
readln(kol)...