Посмотрите ошибку по возможности исправте пожалуйста

program info_student;
uses crt;
 type
     Record_Type=Record
           Fam:String[20];
           Name:String[10];
           God:integer;
           K:Byte;
           Gr:String[8];
 
           end;
 var
    otv:1..3;
    Grup:array[1..20] of Record_Type;
    kol,i:0..200;
    priz_vvoda:0..1;
    Procedure Vvod;
     var
    otv:0..1;
    begin {Исполнительная часть процедуры ввода}
    i:=0;
    Writeln('Формирование массива телефонная база студентов-1');
    Writeln('__________________________________________');
    repeat
    i:=i+1;
    clrscr;
    Writeln('Введите даные -',i,'-го студента');
    Writeln('__________________________________________');
    Write('Фамилия?');
    Readln(Grup[i].Fam);
    Write('Имя?');
    Readln(grup[i].Name);
    Write('Год рождения?');
    Readln(Grup[i].God);
    Write('Курс?');
    Readln(Grup[i].K);
    Write('Группа?');
    Readln(Grup[i].Gr);
    write('Номер телефона?');
    Readln(Grup[i].God);
    Writeln('__________________________________________');
    Writeln('Исчерпан список ввод-0 нет-1');
    Readln(otv);
    Until otv=0;
    kol:=i; priz_vvoda:=1;
    end;{конец процедуры vvod}
    Procedure Wr;
    var
    otv:1..2;
    Grl:String[8];
    Kurs:Byte;
    priz_poiska:0..1;
    c:char;
 
begin
clrscr;
priz_poiska:=0;
writeln('Введите данный вывода информации:');
Writeln('_________________________________');
Write('Курс?');
Readln(Kurs);
Write('Группа?');
Readln(Grl);
{Блок программы по выводу заголовка}
clrscr;
Write('Список студентов',Kurs,'-курса,',Grl,'-группы');
Writeln('_____________________________________________');
Writeln('_____________________________________________');
Writeln('Фамилия : Имя : Год рождения');
Writeln('_____________________________________________');
 
For i:=1 to kol do
            With Grup[i] do begin
            if(K=Kurs)and (Gr=Grl) then begin
writeln(Fam:20,':',Name:10,':',God);
                                  priz_poiska:=1;
                                  end;
                                  end;
 Writeln('_____________________________________________');
 
 
 if priz_poiska=0 then begin Writeln('Студентов с указаным критерием поиска нет');
 Writeln('_____________________________________________');
 end;
 Writeln('Посмотрите результат и нажмите любую букву');
 Read(c);
 end;
 begin
priz_vvoda:=0;
repeat
clrscr;
Writeln('Введите вариант работы с программой');
Writeln('___________________________________');
Writeln('Формирование массива телефонная база студентов-1');
Writeln('Поиск и вывод информации-2');
writeln('Закончить работу с программой-3');
writeln('___________________________________');
readln(otv);
case otv of
       1:VVod;
       2:if priz_vvoda=0 then Vvod else Wr;
       3:exit;
end;
until false;
end.