Pascal. Padėkit rasti klaidą

Sveiki. Padėkit rasti kodą mano programoje:

program pasirinkimas;
const CDuom='duom.txt';
     CRez='rez.txt';
type univerai=record
    valstybe:string[30];
    uni:string[30];
    rate:array[1..100] of integer;
    end;
mas=array[1..100] of univerai;
var n,k,g,h:integer;
   mok:mas;
    s:array[1..100] of integer;
//--------------------------------
procedure skaitimas;
  var Df:text;
      i,j:integer;
begin
Assign(Df,CDuom);
Reset(Df);
Readln(Df,n);
for i:=1 to n do
             Readln(Df,mok[i].valstybe,k);
             s[i] := k;
for j:=1 to k do
begin
            Readln(Df,mok[i].uni[j],mok[i].rate[j]);
end;
close(Df);
end;
//-------------------------------
procedure rikiuojame(s,v:integer);
var i,j,tmp:integer;
    tmp1:string;
begin
for i:=v-1 downto 1 do
 for j:=1 to i do
  if mok[s].rate[j] < mok[s].rate[j+1]
   then begin
         tmp := mok[s].rate[j];
         tmp1 := mok[s].uni[j];
         mok[s].rate[j] := mok[s].rate[j+1];
         mok[s].uni[j] := mok[s].uni[j+1];
         mok[s].rate[j+1] := tmp;
         mok[s].uni[j+1] := tmp1;
        end;
end;
//----------------------------------------
function didziausias:integer;
var i,max:integer;
begin
max := 0;
for i:=1 to n do
 if mok[i].rate[1] > max then begin
        max:= mok[i].rate[1];
        didziausias:=i;
       end;
end;
//--------------------------------------
procedure rasymas;
var i:integer;
    Rf:text;
begin
Assign(Rf,CRez);
Rewrite(Rf);
for i:=1 to n do
 begin
  writeln(Rf,mok[didziausias].valstybe,' ',mok[didziausias].uni[1],' ',mok[didziausias].rate[1]);
  mok[didziausias].rate[1] := 0;
 end;
close(Rf);
end;
//----------------------------------------
begin
skaitimas;
for g:=1 to n do
rikiuojame(g,s[g]);
rasymas;
end.

Duomenų failas:

4
Gailuva         3
Dubysos universitetas          45
Petro universitetas            55
Baltijos kolegija              9
Bambukija       1
Bambuko muzikos akademija      35
Guglija         2
Medienos apdorojimo kolegija   14
Turizmo kolegija               13
Baltieji lokiai 4
Baltasis universitetas         10
Pilkasis universitetas         15
Rudoji kolegija                8
Spalvos kolegija               99

Kokia klaida?