Вывести список студентов претендующих на повышенную стипендию

program zp;
type ms=array [1..20] of string [40];
    vrec=record;
    fio:string [30];   { ф.и.о}
    ng:integer;     {номер группы}
    ot:char;  {или integer}       {отметка}
    kolot:integer      {кол-во отметок}
 
                  end;
Var rec:array[1..50] of vrec;
   procent,st,i,j,ot,w,k,ng,gt,kolot:integer;{st-студент, gt-пустая переменная}
   l:boolean;
   p:vrec;
 
Begin
 writeln('vvedite kol-vo studentov');
 readln(k);
For i:=1 to k do
with rec[i] do
 begin
  readln(fio);
  readln(ng);
  readln(kolot);
 for j:=1 to kolot do
  readln(rec[i].ot[j]);
 end;
  gt:=0;
  procent:=round((kolot/100)*75);
 for i:=1 to k do
  begin
     for j:=1 to kolot do begin
        if not rec[i].ot[j]=4 then
         if rec[i].ot[j]=5 then begin
          l:=true;
           st:=st+1;
         else l:=false;
         end;
   if st>=procent then begin
      writeln(rec[i].fio);
      gt:=0;
end;
  if gt=0 then writeln ('no....');
  end;

readln(rec[i].ot[j]); {ошибка: переменная ot не является именем массива}

if not rec[i].ot[j]=4 then {ошибка: операция не применима к операндам этого типа}

 ot:char;

ot:array [1..x] of integer

round

gt:=0;
  procent:=round((kolot/100)*75);
 for i:=1 to k do
  begin
     for j:=1 to kolot do begin
        if not rec[i].ot[j]=4 then
         if rec[i].ot[j]=5 then begin
          l:=true;
           st:=st+1;
         else l:=false;
         end;
   if st>=procent then begin
      writeln(rec[i].fio);
      gt:=0;
end;
  if gt=0 then writeln ('no....');
  end;

for i:=1 to k do begin
gt:=0;
for j:=1 to x do
if (rec[i].ot[j]<>2) and (rec[i].ot[j]<>3) then gt:=gt+1;
if gt=x then begin
gt:=0;
for j:=1 to x do begin
gt:=gt+rec[i].ot[j]
gt:=gt/x;end;
if gt>=4.75 then write('студент ',rec[i].fio,' получает повышенную стипендию');
end;end;