Lengva FPS užduotėlė

Sveiki. Turiu pasirašęs visą programą, bet reikėtų, kad ta programa, duomenis imtų iš atskiro failo, pvz. pazymiai.txt . Tikiiuosi supratot ir gal kas pagelbės? Mokančiam čia poros minučių darbas.

program uzduotis;
var a, din : string;
    i, j : integer;
begin
 writeln('Iveskite aibes skaicius');
 readln(a);
 writeln('Aibeje yra ',length(a),' elementu (-ai)');
 for i := 1 to length(a) do
  for j := i to length(a) do
   if a[i] > a[j] then
    begin
     din := a[i];
     a[i]:= a[j];
     a[j]:= din[1];
    end;
 writeln('Aibes elementai isdestyti pagal abecele');
 writeln(a);
 Readln;
end.

program uzduotis;
var a, din : string;
    i, j : integer;
    f : text;
begin
 assign(f,'pazymiai.txt');
 reset(f);
 //writeln('Iveskite aibes skaicius');
 readln(f,a);
 writeln('Aibeje yra ',length(a),' elementu (-ai)');
 for i := 1 to length(a) do
  for j := i to length(a) do
   if a[i] > a[j] then
    begin
     din := a[i];
     a[i]:= a[j];
     a[j]:= din[1];
    end;
 writeln('Aibes elementai isdestyti pagal abecele');
 writeln(a);
 Readln;
 close(f);
end.

Ačiū labai, bet viena problema yra.. 10 skaičiaus neparašo, dalina į 1 ir 0.

Jai nori skaičius pagal eilę dėlioti reikia perrašyti programą.

Užduotis tokia:

Faile surašytas studentų grupės studentų sąrašas su kontrolinio darbo pažymiais. Išveskite sąrašą pažymių didėjimo tvarka.

Jei turėsi laiko gal pagelbėsi?

program uzduotis;

type masyvas = array[1..100] of integer;

var     i, j, din, x : integer;
       f : text;
       a : masyvas;
begin
assign(f,'pazymiai.txt');
reset(f);
x:=0;
while not eof(f) do
begin
   x:=x+1;
   read(f,a[x]);
end;
writeln('Aibeje yra ',x,' elementu (-ai)');
for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;
writeln('Aibes elementai isdestyti pagal abecele');
for i:=1 to x do
   write(a[i],' ');
Readln;
close(f);
end.

O ! Labai ačiū ! Viskas puikiai veikia :)