Указатели, Сортировка по альфавиту Опции

[setare]

Нам дан текстовый файл в кот написано 1000 слов. Длина стлов не превышает 150. Нужно используя указатель сортировать эти слова по альфавиту и записать в новый файл.

Код

type
mas=array[1..200] of string;
 var
  ukm:^mas;
  flname,s:string;
  f,f1:text;
  i,j:integer;
   begin
    writeln('Vvedit imya fila.');
    readln(flname);
    assign(f,flname);
    reset(f);
    new(ukm);
     for i:=1 to 200 do
      readln(f,ukm^[i]);
      writeln(ukm^[i]);
      close(f);
     for J:=1 to 199 do
      for i:=1 to 200-j do
       if Ukm^[i]>Ukm^[i+1] then
        begin
         s:=ukm^[i];
         Ukm^[i]:=Ukm^[i+1];
         Ukm^[i+1]:=S;
        end;
     writeln('Vvedite imya novogo fila.');
     readln(flname);
     assign(f1,flname);
     rewrite(f1);
      for i:=1 to 200 do
       writeln(f1,Ukm^[i]);
      close(f1);
      Dispose(Ukm);
   end.