структуры, паскаль

[[LF.Dota]GodLike!]

Условие задачи

type
struct=record
n1,n2:string[20];
c:1..11;
b:char;
d:string[8];
end;

var
n,i,j:integer;
s:string;
st:array[1..1000] of struct;
k:struct;
input,output:text;

function C2I(c:char):integer;
var
i,k:integer;
s:string;
begin
s:='';
s:=s + c;
val(s,i,k);
C2I:=i;
end;

function S2I(s:string):integer;
var
i,k:integer;
begin
val(s,i,k);
S2I:=i;
end;

begin
assign(input,'input.txt');
reset(input);
readln(input,n);
for i:=1 to n do
with st[i] do
  begin
   readln(input,n1);
   readln(input,n2);
   readln(input,s);
   if length(s)=2 then c:=C2I(s[1])
   else c:=S2I(s[1]+s[2]);
   b:=s[length(s)];
   readln(input,d);
   s:='';
  end;
{Сортировка по классам}
for i:=1 to n-1 do
for j:=1 to n-i do
  if st[j].c>st[j+1].c then
   begin
    k:=st[j];
    st[j]:=st[j+1];
    st[j+1]:=k;
   end
  else if st[j].c=st[j+1].c then
   if st[j].b>st[j+1].b then
    begin
     k:=st[j];
     st[j]:=st[j+1];
     st[j+1]:=k;
    end;
{Сортировка по фамилиям}
for i:=1 to n-1 do
for j:=1 to n-i do
  if (st[j].c=st[j+1].c) and (st[j].b=st[j+1].b) then
  if st[j].n1>st[j+1].n1 then
   begin
     k:=st[j];
     st[j]:=st[j+1];
     st[j+1]:=k;
   end;
assign(output,'output.txt');
rewrite(output);
for i:=1 to n do
with st[i] do writeln(output,n1,' ',n2,' ',c,b,' ',d);
close(input);
close(output);
end.

 

Прога проходит тест-пример, но не проходит ни одного теста при сдаче.

Подозреваю что ошибка в сортировке по фамилиям. Кто шарит хелпуйте

[Lamer]

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

[[LF.Dota]GodLike!]

проблема решена

дело в неправильном выводе ответа