Люди помогите пожалуйста....Кто понимает TURBO PASCAL

А сам модуль kyrsak как выглядит? Оно вообще работает?
program kyrsack; -название прграммы
uses crt,graph,kyrsak; - подключение модулей
BEGIN - начало программы
p:=0;
flag:=false; присвоение значений
flag1:=false;
flag2:=true;
repeat "повторять до"
window(1,1,80,25); - координаты окна
textcolor(7); - задание цвета текста
textbackground(0);
clrscr; очистак экрана
writeln('Nazmite knopky dlya vxoda v menu'); - вывод на экран
writeln(' 1: Sozdat Vedomost ');
writeln(' 2: Dobavit v Vedomost ');
writeln(' 3: Del iz Vedomosti ');
writeln(' 4: Vibirka iz Vedomosti ');
writeln(' 5: Sohranit v fayl ');
writeln(' Esc: EXIT IZ PROGRAM ');
getkey(kod); ожидание нажатия клавиши
case kod of
'1': begin если нажата 1 - создание ведомости
if (flag2) or (kol=0) then - блок перехода
begin начало исполнения фукции
creat(kol); создание записи
if kol>0 then определения положительности kol
begin
for i:=1 to kol do начало цикла
add(i,ved); функция добавления в ведомость
flag:= true;
flag1:=true;
flag2:=false;
end
else break;
end
else
begin
clrscr; очистка экрана
writeln('Vedomozt sozdana'); вывод на экран вывод на экран
write('Press Key....');
readkey; ожидание ввода
end;
end;
'2': begin
if flag1 then
begin
if flag then
begin
flag:=false;
end;
inc(kol); add(kol,ved[kol]);
end
else
begin
clrscr;
flag1:=false;
writeln('Plize sozdaite vedomost ');
write (' Press Key....');
readkey; end; end;
'3':begin
clrscr;
if flag1
then
del(kol,ved)
else
begin
writeln(' Sorry Net dannix '); write (' Press Key....'); readkey;
end
end;
'4': begin
clrscr;
if flag1
then
vubirka(kol,ved)
else
begin
writeln(' Sorry Net dannix '); write (' Press Key....'); readkey;
end
end;

'5': begin
clrscr;
if flag1
then
save
else
begin
writeln(' Sorry Net dannix '); write (' Press Key....'); readkey;
end
end;

end;

until kod=#27;
END.

Первый блок расписала, дальше сам, всё однотипно. Вообще, если защита завтра, почитай учебник, много полезного)) )

муть какаята ...это тупо интерфейс к тому что находится в модуле kyrsak.
вводишь 1- чётатам делаем вводишь 2 опять чёта делает итд а чё делает смотри в юните

раз уж написал, так уж к ней и дополнения допиши