необходимо переделать

[Zelenyi]

Здравствуйте товарищи программисты,. я написал программу, которая сортирует массив слов из файла но написал её при помощи статических переменных, а нужно при помощи динамических, и снабдить какими то проверками. подскажите пожалуйста как её переделать

program l5;

uses crt;
var i,j,kol:word;
    sub:string;
    a: array [1..100] of string;
    fname1, fname2:string;
    buf:char;
    f1,f2:text;

  begin
   clrscr;
   writeln('Введите имя входного файла ');
   readln(fname1);
    assign(f1, fname1);
    reset(f1);
    writeln('Введите имя выходного файла ');
    readln(fname2);
    assign(f2,fname2);
    rewrite(f2);
    i:=1;
     while not EOF(f1) do
       begin
        read(f1,buf);
        if (buf<>' ') then a[i]:=a[i]+buf
        else
        inc(i);
        end;
       kol:=i;
       for i:=1 to kol-1 do
           for j:=1 to kol-1 do
           begin
                if a[j]>a[j+1] then
                begin
                     sub:=a[j];
                     a[j]:=a[j+1];
                     a[j+1]:=sub;
                end;
           end;
       for i:=1 to kol do
           writeln(f2,a[i]);
       writeln('TEKCT OTCOPTИPOBAH');
      close(f1);
      close(f2);
    readln;
   end.