ок .. заранее спасибо
Код
program spisok;
uses crt;
type zap=record
fio,pol: string[15];
gr,ocf,ocm,oci,stip: integer;
end;
var sp:array[1..15] of zap;
z:array[1..15] of zap;
k,q,n,m,i,Sum: integer;
begin
k:=1;
clrscr;
writeln ('vvesti kol-vo studentov');
readln (n);
repeat m:=m+1;
write ('vvedite FIO '); readln (sp[m].fio);
write ('vvedite God Rozhdeniya '); readln (sp[m].gr);
write ('vvedite Pol '); readln (sp[m].pol);
write ('vvedite Ocenka Fizika '); readln (sp[m].ocf);
write ('vvedite Ocenka Matematika '); readln (sp[m].ocm);
write ('vvedite Ocenka Informatika '); readln (sp[m].oci);
write ('Stipendia '); readln (sp[m].stip);
until (n=m);
for i:=1 to n do
begin
writeln ('FIO: ',sp[i].fio);
writeln ('God Rozhdenia: ',sp[i].gr);
writeln ('Pol: ',sp[i].pol);
writeln ('Ocenka Fizika: ',sp[i].ocf);
writeln ('Ocenka Matematika: ',sp[i].ocm);
writeln ('Ocenka Informatika: ',sp[i].oci);
writeln ('Stipendia: ',sp[i].stip);
writeln;
end;
for i:=1 to n do
if (sp[i].pol='f') and (sp[i].oci=5) then
writeln('Stydentka kotoraya imeet po informatike 5: ',sp[i].fio);
end.