Ошибка в програмке! мелкая! сообразите?

Program poisk;
uses crt;
type
TnF = record
FIO: string[20];
Facultet: string[20];
Gruppa: integer;
God_Rozdenia: integer;
end;
var
A : array [1..100] of TnF;
e,t,n,j,i : integer;
s,q,w:string[20];
 
begin
Clrscr;
textcolor(11);
Writeln('    Vvedite kolichestvo zapisey ');
writeln;
readln(n);
Clrscr;
for j:=1 to n do
begin
writeln('    ',j,'-ia zapis');
writeln('    Vvedite FIO ');
readln(A[j].FIO);
Writeln('    Vvedite Facultet');
readln(A[j].Facultet);
writeln('    Vvedite Gruppu');
readln(A[j].Gruppa);
Writeln('    Vvedite God Rozdenia');
readln(A[j].God_Rozdenia);
writeln;
end;
Clrscr;
writeln;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i].God_Rozdenia < A[j].God_Rozdenia then
begin
q:=A[i].FIO;
w:=A[i].Facultet;
e:=A[i].Gruppa;
t:=A[i].God_Rozdenia; 
A[i].FIO:=A[j].FIO;
A[i].Facultet:=A[j].Facultet;
A[i].Gruppa:=A[j].Gruppa;
A[i].God_Rozdenia:=A[j].God_Rozdenia;
A[j].FIO:=q;
A[j].Facultet:=q;
A[j].Gruppa:=e;
A[j].God_Rozdenia:=t;
end;
 
writeln('    Vasha tablica:');
writeln;
writeln('    FIO - Facultet - Gruppa - God Rozdenia ');
for i:=1 to n do
writeln('    ',A[i].FIO,' - ',A[i].Facultet,' - ',A[i].Gruppa,' - ',A[i].God_Rozdenia);
Writeln;
readln;
end.