нужно довести до ума(Программирование с использованием типа запись)

[yuriy1]

нужно вывести все фамилии в анкетах, которые закончили педучилище, у меня выходит только одна

program Lab;
Type Anketa=Record
Fam,Obraz,Yazik:string[20];
Obsch,Rab:string[3];
Staj:0..30;
End;
Var
s:Anketa;
n,i,k,e,f,g:integer;
begin
write('Введите кол-во анкет: ');
readln(n);
k:=0;
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,'-ом студенте: ');
write('Введите Фамилию: ');
readln(s.Fam);
write('Введите что окончил: ');
readln(s.obraz);
End;
if s.Obraz='педучилище' then writeln(s.fam);
end.

[Poma][a]

1) Код выделяйте не тегом цитата, а кнопочкой с #
2) Вы читаете всё в одну запись - тоесть Вам дали толстую тетрадь для записи чего-либо, вы же полностью всё пишите на 1 листке? Что Вы разберете из полученного?

Вообщем т.к. у Вас есть хоть часть кода (надеюсь которую Вы сделали сами), то ловите...

program Lab;
Type Anketa=Record
Fam,Obraz,Yazik:string[20];
Obsch,Rab:string[3];
Staj:0..30;
End;
Var
n,i,k,e,f,g:integer;
a : array [1..20] of Anketa;
begin
write('Введите кол-во анкет: ');
readln(n);
k:=0;
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,'-ом студенте: ');
write('Введите Фамилию: ');
readln(a[i].Fam);
write('Введите что окончил: ');
readln(a[i].obraz);
End;

for i := 1 to n do
    if  a[i].obraz = ' педучилище' then
        WriteLn (a[i].Fam)
end.

не проверял

[yuriy1]

чёрт, так просто вот)) спасибо большое!