В 107 строчке выскакивает ошибка что делать?Паскаль

Program kurs;
uses crt;
var ch:char;
var  k1,gv,k,sinav,lv,tv,v,k1v,av,g,a,t,l:real;
Procedure Menu ;
begin
 HideCursor; {Ñêðûâàåò òåêñòîâûé êóðñîð}
crtwindowsize(120,40); {Óñòàíàâëèâàåò ðàçìåð òåêñòîâîãî îêíà â ñèìâîëàõ}
window (1,1,120,40) ; {Îïðåäåëÿåò íà ýêðàíå òåêóùåå îêíî. Óñòàíàâëèâàåò êóðñîð â ëåâûé âåðõíèé óãîë òåêóùåãî îêíà}
textbackGround(8); {Óñòàíàâëèâàåò öâåò ôîíà}
clrscr; {Î÷èùàåò öâåòîì ôîíà âñå òåêñòîâîå îêíî èëè òåêóùåå îêíî, óñòàíîâëåííîå ïðîöåäóðîé window. Óñòàíàâëèâàåò êóðñîð â ëåâûé âåðõíèé óãîë î÷èùåííîãî îêíà.}
Gotoxy(50,4); {Ïåðåìåùàåò êóðñîð â ïîçèöèþ (x,y)}
textcolor(6); {Óñòàíàâëèâàåò öâåò ñèìâîëîâ}
Write('__________ÌÅÍÞ_________');
Window(6,6,114,34);
textbackground(9);
clrscr;
Gotoxy(43,3);
textcolor(white);
writeln('Âûáåðèòå îäèí èç ïóíêòîâ ìåíþ');
Gotoxy(48,4);
writeln ('íàæàâ êëàâèøó 1-4');
textcolor(white);
Gotoxy(41,28);
writeln ('äëÿ âûõîäà íàæìèòå êëàâèøó 5') ;
window(8,11,112,29);
textbackground(4);
clrscr;
TextColor(Black);
Gotoxy(10,4);
writeln('1.Î ÏÐÎÃÐÀÌÌÅ');
Gotoxy(10,7);
writeln('2.ÓÑËÎÂÈÅ ÇÀÄÀ×È');
Gotoxy(10,10);
writeln('3.ÂÂÎÄ ÄÀÍÍÛÕ');
Gotoxy(10,13);
writeln('4.ÐÅÇÓËÜÒÀÒ');
Gotoxy(10,16);
writeln('5.ÂÛÕÎÄ');
end;
 
procedure tlist;
begin
clrscr;
writeln  ('Ìèíèñòåðñòâî îáðàçîâàíèÿ Ðåñïóáëèêè Áåëàðóñü');
writeln('ÁÅËÎÐÓÑÑÊÈÉ ÍÀÖÈÎÍÀËÜÍÛÉ ÒÅÕÍÈ×ÅÑÊÈÉ ÓÍÈÂÅÐÑÈÒÅÒ');
 
writeln      ('Èíæåíåðíî-ïåäàãîãè÷åñêèé ôàêóëüòåò');
 
writeln   ('Êàôåäðà "Òåõíîëîãèÿ è ìåòîäèêà ïðåïîäàâàíèÿ"');
writeln                 ('ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ');
 
 writeln           ('ïî äèñöèïëèíå "Èíôîðìàòèêà"');
 
 writeln      ('Ðàçðàáîòêà ïðîãðàììû íà ÿçûêå Pascal …');
 
 
 
 
 
 
 
 
writeln ('Èñïîëíèòåëü:                            ñòóäåíò ãð.109041-12');
writeln                                        ('È.À.Ðàñïóòèí');
 
 
writeln ('Ðóêîâîäèòåëü:                        ïðåïîäàâàòåëü');
writeln (                                     'Í.È.Àñòàï÷èê');
 writeln                   ('Ìèíñê 2012');
repeat until  keypressed;
end;
 
procedure slovo;
var s:char;
begin
textcolor(black);
gotoxy (25,18);
writeln ('äëÿ âîçâðàòà â ìåíþ íàæìèòå êëàâèøó ESC');
repeat
s:=readkey;
until s=chr (27);
end;
 
procedure about;
begin
clrscr;
writeln ('about') ;
repeat until  keypressed;
slovo;
end;
 
procedure usl;
begin
clrscr;
writeln('Òåëî ëåæèò íà íàêëîííîé ïëîñêîñòè, ñîñòîâëÿþùåé ñ ãîðèçîíòîì óãîë àëüôà = 4.Ïðè êàêîì ïðåäåëüíîì êîýôôèöèåíòå òðåíèÿ Ê òåëî íà÷íåò ñêîëüçèòü ïî íàêëîííîé ïëîñêîñòè?  ') ;
writeln('Ñ êàêèì óñêîðåíèåì àëüôà áóäåò ñêîëüçèòü òåëî ïî ïëîñêîñòè, åñëè êîýôôèöèåíò òðåíèÿ Ê=0,03? ');
writeln('Êàêîå âðåìÿ t ïîòðåáóåòñÿ äëÿ ïðîõîæäåíèÿ ïðè ýòèõ óñëîâèÿõ ïóòè S=100 ì?');
writeln('Êàêóþ ñêîðîñòü V áóäåò èìåòü òåëî â êîíöå ïóòè?');
slovo;
end;
procedure ur;
begin
g:=9.8;
k:=sinav;
a:=gv*(sinav-k1v);
t:=sqrt(2*lv/av);
v:=av*tv;
end;
 
procedure vvod;
var k1,l,sina :string;code:integer;
begin
clrscr;
writeln('Ââåñòè êîôèöèåíò òðåíèÿ ê1 îò 0 äî 0.04 ');
repeat
delline;
readln(k1);
val(k1,k1v,code);
gotoxy(1,2);
until(code=0)and(k1v>0)and(k1v<0.04);
gotoxy(1,3);
 
writeln('Ââåñòè çíà÷åíèÿ ïóòè s â ïðåäåëàõ îò 0 äî 100 ì ');
repeat
delline;
readln(l);
val(l,lv,code);
gotoxy(1,4);
until(code=0)and(lv>0)and(lv<100);
gotoxy(1,5);
 
writeln('Ââåñòè çíà÷åíèå óãëà sina â ïðåäåëàõ îò 0.06 äî 0.18 ');
repeat
delline;
readln(sina);
val(sina,sinav,code);
gotoxy(1,6);
until(code=0)and(sinav>0.06)and(sinav<0.18);
slovo;
end;
 
procedure result;
begin
clrscr;
ur;
writeln('Ïðåäåëüíûé êîýôôèöèåíò òðåíèÿ=',k:6:2);
writeln('Óñêoðåíèå=',a:6:3);
writeln('âðåìÿ òðåáóåìîå äëÿ ïðîõîæäåíèÿ ïóòè= ',t:6:4);
writeln('Ñêîðîñòü=',v:6:5);
slovo;
end;
 
 BEGIN
 clrscr;
 tList;
while ch<>'5' do
begin
  clrscr;
  menu;
  repeat
  ch:=readkey; {×èòàåò ñèìâîë èç áóôåðà êëàâèàòóðû}
  until ch in ['1','2','3','4','5'];
  case ch of
  '1':About;
  '2':Usl;
  '3':vvod;
  '4':result;
  { '5':exit }
  end
  end
  END.

t:=sqrt(2*lv/av);