uses crt;
type abc=record
fam:string[30];
mat,pyc,ist,fiz:integer;
end;
var a:abc;
mas:array [1..100] of abc;
i,n:integer;
begin
write ('Введите кол-во студентов');
read (n);
for i:=1 to n do
with mas[i] do
begin
writeln ('Введите фамилию');
readln (fam);
writeln ('Введите оценки');
readln (mat,pyc,ist,fiz);
end;

procedure poisk;
  var
  fam1:string[30];
    begin
    write('Введите фамилию для поиска: ');
    read(fam1);
    for i:=1 to n do
     if fam1=mas[i].fam then
      writeln(mas[i].mat,' ',mas[i].pyc,' ',mas[i].ist,' ',mas[i].fiz)
      else writeln('не найдено');
end;