Обработка данных

program k5_2_1_5;
uses crt;
type
  spisok=record      {zapis}
    gruppa:string[8];{gruppa}
    fio:string[18]; {famil}
    god:integer;{god rogd}
    pol:string[4];{pol}
    fiz:integer;{ocenka po fizike}
    mat:integer;
    inf:integer;
    st:real;{}
  end;
  mas=array[1..31] of spisok;{mass student tipa spisok}
var a:mas;
    n,i,k:integer;
 
begin
clrscr;
write('Vvedite kol-vo studentov ');
readln(n);
writeln;{vvod v cikle poley zapisi dlia kajdogo stud}
for i:=1 to n do
with a[i] do
  begin
  write('Vvedite gruppu:');readln(gruppa);{vvod pole gruppa}
  write('Vvedite FIO: ');readln(fio);
  write('Vvedite god: ');readln(god);
  write('Vvedite pol: ');readln(pol);
  write('Vvedite ocen po fizike: ');readln(fiz);
  write('Vvedite ocen po matem: ');readln(mat);
  write('Vvedite ocen po inform: ');readln(inf);
  write('Vvedite stipendiu: ');readln(st);
  writeln;
  end;
 
writeln(' GRUPPA  FIO  GOD   POL');
for i:=1 to n do
begin
with a[i] do
write(gruppa,' ',fio:18,god:4);
writeln;
end;
 
  k:=0;{kol-vo 2-kov}
  writeln('FIO neuspev Fiz Mat Inf Stip');
  for i:=1 to n do{cikl}
  begin
  with a[i] do{s elem massiva}
  if (fiz=2) or (mat=2) or (inf=2) then {uslov: est 2}
  begin
  k:=k+1;{kol-vo 2-kov}
  st:=0;{stipend =0}
  writeln(fio:20,fiz:4,mat:4,inf:4,st);
  end;
  end;
  writeln;
  if k=0 then
  writeln('Net stud. s 2 ')
  else
  writeln('Kol-vo stud. s 2  ravno ',k);
 readln;
end.