Добрый вечер. Написал программу, но не могу понять где ошибка, может кто нибудь помочь.

[qwe1233]

условие: Сформировать список студентов группы со следующими сведения¬ми: фамилия, имя, отчество, знает ли языки программирования Pascal ABC, Cи (если да, где обучался и сколько лет). Подсчитать, сколько студентов знают язык Си, сколько – Pascal ABC, сколько – оба языка.

Type	
student = record	
fam: string[20];
name: string[20];
ot4: string[20];
Pac: string[5];
Ci:string[5];
end;
Var
  z:array[1..20]of student;
  i,n:byte;
  e,q,w:string;
  k,p,o:integer;
begin
  write('Введите количестов студентов: ');
  readln(n);
  for i:=1 to n do begin
    write('Ввдите фамилию: ');
    readln(z[i].fam);
    write('Ввдите имя: ');
    readln(z[i].name);
    write('Ввдите отчество: ');
    readln(z[i].ot4);
    write('знает ли вы язык программирования Pascal ABC?: ');
    readln(z[i].Pac);
    write('знает ли вы язык программирования C++?: ');
    readln(z[i].Ci);
  end;
  k:=0;
  p:=0;
  o:=0;
  for i:=1 to n do begin
   if z[i].Pac='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(q);
      k:=k+1;
    end 
    else
   if z[i].Ci='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(w);
      p:=p+1;
    end
    else
      if (z[i].Pac='Да') and (z[i].Ci='Да') then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(e);
      o:=o+1;
      end;
      end;
    for i:=1 to n do 
      writeln('Кол-во студентов знающих язык программирования Pascal ABC: ',k);
      writeln('Кол-во студентов знающих язык программирования C++: ',p);
      writeln('Кол-во студентов знающих оба языка программирования: ',o);
end.

[BDA]

Во-первых, используйте кнопочку [CODE] для оформления кода. Во-вторых, сначала считайте тех, кто знает оба языка, а только потом тех, кто знает один из языков. В-третьих, сейчас информация об обучении языку не сохраняется (возможно, нужно сохранять).

[qwe1233]

BDA, Спасибо за помощь, прога работает