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

[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.

[volvo]

Ну, а если я перепишу ее вот так:

Код

const
 maxLines = 1000;
Type
 PStr = ^TStr;
 TStr = String[150]; { Это же максимальный размер, не так ли? }
 mas = array[1 .. maxLines] of PStr;
var
 ukm: mas;
 flname,s:string;
 f,f1:text;
 i,j:integer;

begin
 writeln('Vvedit imya fila.');
 readln(flname);
 assign(f,flname);
 reset(f);

 for i:=1 to maxLines do
   begin
     ukm[i] := new(pstr)
     readln(f, ukm[i]^);
     writeln(ukm[i]^);
   end;
 close(f);

 { пузырьковая сортировка ? }
 for i:=1 to maxLines do
   for j:=maxLines downto i+1 do
     if Ukm[j - 1]^ > Ukm[j]^ then
       begin
         s:=ukm[j-1]^;
         Ukm[j-1]^:=Ukm[j]^;
         Ukm[j]^:=S;
       end;

 writeln('Vvedite imya novogo fila.');
 readln(flname);
 assign(f1,flname);
 rewrite(f1);
 for i:=1 to 1000 do
   begin
     writeln(f1,Ukm[i]^);
     dispose(ukm[i]);
   end;
 close(f1);
end.

Вот так, скорее всего, должно работать...