Добавить процедуры

uses 
crt;
type 
stud=record
kurs:1..4;
fam,name,numgr:string[10];
bal:array[1..4] of 61..100;
sb:real;
end;
var 
mas:array[1..20] of stud;
i,j,s,kus:integer;
pr:real;
begin
for i:=1 to 20 do with mas[i] do begin 
s:=0;
write ('vvedite familiyu, imya i nomer gruppy:');
readln (fam, name,numgr);
write ('vvedite 4 bala');
for j:=1 to 4 do begin 
readln (bal[j]);
s:=s+bal[j];
end;
sb:=s/4;
writeln ('srednij bal=',sb:3:2);
end;
kus:=0; 
for i:=1 to 20 do with mas[i] do if sb>=4 then kus:=kus+1;
writeln ('kol-vo uspevayuwih studentov=',kus);
pr:=kus/20*100;
writeln ('procent=',pr:5:2,'%'); 
readln;
end.

uses crt;
type stud=record
          fam:string[15];
          nam:string[15];
          grp:word;
          otm:array[1..5] of 2..5;
          end;
     fail=file of stud;
{перевод русских символов из кодировки Dos в программе в Вин в текстовом файле}
function Convert(a:string):string;
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
Convert:=a;
end;
{создание файла записей}
procedure ZapFile(var f:fail);
var s:stud;
    c:char;
    i,j:byte;
begin
assign(f,'stud');
rewrite(f);
writeln('Введите данные о студентах, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln('Студент ',i);
with s do
 begin
  write(' Фамилия: ');readln(fam);
  write(' Имя: ');readln(nam);
  write(' Группа: ');readln(grp);
  writeln(' Введите 5 оенок от 2 до 5:');
  for j:=1 to 5 do
   begin
    repeat
    write('  оценка ',j,'=');
    readln(otm[j]);
    until otm[j] in [2..5];
   end;
  write(f,s);
 end;
c:=readkey;
until c=#27;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
writeln('------------------------------------------------------');
writeln('|    Фамилия     |      Имя      | Группа | Отметки  |');
writeln('------------------------------------------------------');
while not eof(f) do
 begin
  read(f,s);
  with(s) do
   begin
    gotoXY(1,whereY);write('| ',fam);
    gotoXY(18,whereY);write('| ',nam);
    gotoXY(34,whereY);write('| ',grp);
    gotoXY(43,whereY);write('|');
    for i:=1 to 5 do write(otm[i]:2);
    gotoXY(54,whereY);writeln('|');
   end;
  end;
writeln('------------------------------------------------------');
close(f);
end;
{создание текстового файла}
procedure Isprav(var f:fail;var t:text);
var s:stud;
    i,k,p:byte;
begin
assign(t,'isprav.txt');
rewrite(t);
reset(f);
p:=0;
while not eof(f) do
 begin
  read(f,s);
  k:=0;
  for i:=1 to 5 do
  if s.otm[i]=2 then k:=k+1;
  if k in [1..2] then
   begin
    p:=1;
    write(t,Convert(s.fam),' ',Convert(s.nam),' ',s.grp);
    for i:=1 to 5 do write(t,' ',s.otm[i]);
    writeln(t,'');
   end;
 end;
if p=0 then writeln(t,'Ispravitelnyj srok ni komu ne naznachen!');
close(t);
close(f);
write('Данные о получивших исправительный срок записаны в файл ISPRAV.TXT');
end;
var z:stud;
    f:fail;
    t:text;
begin
clrscr;
ZapFile(f);
Isprav(f,t);
readln
end.