Прокомментируйте программу.

program valut;
var
    f:text;
    s,s1:string;
    l,i,j,k,kol:integer;
    r,r1:real;
    mass:array[1..50] of real ;
    mass2:array[1..50]of string;
procedure chten;
begin
    kol:=0;
    assign(f,'\massive.txt');
    reset(f);
    while not eof(f) do
        begin
            kol:=kol+1;
            readln(f,mass2[kol]);
            end;
        close(f);
end;
procedure zapis;
begin
    assign(f,'\exchange.txt');
    rewrite(f);
    for i:=1 to kol do
    writeln(f,mass2[i]);
    close(f);
end;
begin
chten;
for j:=1 to kol do
begin
    for k:=5 to length(mass2[j]) do
        begin
        if mass2[j][k]<>' ' then
        s:=s+mass2[j][k]
            else
        begin
            s1:=s;
            s:='';
    end;
end;
s:=s1+'.'+s;
val (s,r,l);
mass[j]:=r;
    s:='';
    end;
for i:=1 to kol-1 do
for j:=i+1 to kol do
if mass[i]<mass[j] then
begin
    r1:=mass[i];
    mass[i]:=mass[j];
    mass[j]:=r1;
s1:=mass2[i];
    mass2[i]:=mass2[j];
    mass2[j]:=s1;
end;
zapis;
for j:=1 to kol do
writeln(mass2[j]);
readln;
end.

var
        f:text;
        s,s1:string;
        l,i,j,k,kol:integer;
        r,r1:real;
        mass:array[1..50] of real ;
        mass2:array[1..50]of string;

var        {начало обьявления переменных}
        f:text;  {переменная f типа text}
        s,s1:string; {переменные s,s1 типа string}
        l,i,j,k,kol:integer; {переменные типа integer}
        r,r1:real; {-||- типа real}
        mass:array[1..50] of real ;  {массив из 50 элементов типа real} 
        mass2:array[1..50]of string; {масив из 50 элементов типа string}