Reikia pagalbos su pascal!

Tai va tokia problemele. Greiciau ne problemele, o klausimas. Tarkim yra kokiam nors textas.txt faile duomenys:

Antanas 10

Petras 12

Jonas 15

Kaip man juos atvaizduot ekrane pagal skaicius, kurie yra salia vardu, didejimo tvarka? Ta prasme, kad ekrane ismestu:

Jonas 15

Petras 12

Antanas 10

Zinau, kad lengva, bet nezinau as tu visu pascalio gudrybiu :) tai va, kam nesunku padekit :)

Ten kartais neturetu buti tekstiniame faile po tiek pat simboliu skirta vardams pvz po kokios 15.

Ten kartais neturetu buti tekstiniame faile po tiek pat simboliu skirta vardams pvz po kokios 15.

tai, kad nieko neuzsiminta apie tai...

program Bevardë7;
var raide : string[1];
vardas : array[1..10] of string;
 n, i, saugot, j : integer;		   //j - eiluciu skaicius
 skaicius : array[1..10] of integer;
 saugoti : string;
 F: text;
begin
 assign(F, 'failas.txt'); Reset(F);
 j := 0;
 while not eof(f) do begin
  j := j+1;
  readln(F);
 end;
 Reset(F);
 for n := 1 to j do begin
  vardas[n] := '';
  while not Eoln(F) do begin
  read(F, raide);
  if (raide <> ' ') then
vardas[n] := vardas[n] + raide
  else
read(F, skaicius[n]);
  end;
readln(F);
end;
for i := 1 to j do
 for n := i to n do begin
  if skaicius[n] > skaicius[i] then begin
saugot := skaicius[n];
skaicius[n] := skaicius[i];
skaicius[i] := saugot;
saugoti := vardas[n];
vardas[n] := vardas[i];
vardas[i] := saugoti;
 end;
 end;
 for i := 1 to j do
  writeln(vardas[i], '-', skaicius[i]);

 Readln;
end.

program Bevardë7;
var raide : string[1];
vardas : array[1..10] of string;
 n, i, saugot, j : integer;		   //j - eiluciu skaicius
 skaicius : array[1..10] of integer;
 saugoti : string;
 F: text;
begin
 assign(F, 'failas.txt'); Reset(F);
 j := 0;
 while not eof(f) do begin
  j := j+1;
  readln(F);
 end;
 Reset(F);
 for n := 1 to j do begin
  vardas[n] := '';
  while not Eoln(F) do begin
  read(F, raide);
  if (raide <> ' ') then
vardas[n] := vardas[n] + raide
  else
read(F, skaicius[n]);
  end;
readln(F);
end;
for i := 1 to j do
 for n := i to n do begin
  if skaicius[n] > skaicius[i] then begin
saugot := skaicius[n];
skaicius[n] := skaicius[i];
skaicius[i] := saugot;
saugoti := vardas[n];
vardas[n] := vardas[i];
vardas[i] := saugoti;
 end;
 end;
 for i := 1 to j do
  writeln(vardas[i], '-', skaicius[i]);

 Readln;
end.

Dekui labai :) leiku skolingas :)