Задание "удаление повторяющихся строк в текстовом файле" вроде написала, но не идет, посмотрите, пожалуйста

Question

program stroka;
const

adr='C:\proba.txt';

var

f:text;

i,j,k:byte;

st:array [1..255] of string;

r: array [1..255] of boolean;

begin

assign (f, adr);

reset (f);

repeat

inc (i);

readln (f,st[i]);

until eof (f);

for j:=1 to i-1 do

for k:=j+1 to i do

if st[k]=st[j] than begin

r[k]:=true;

r[j]:=true;

end;

close (f);

rewrite (f);

for i=1 to 1 do

if (st[i]<>") and (r[i]=false) than writeln (f,st[i]);

close(f);

end.

Кристина Плечко · Accepted Answer

Знаешь как лучше сделай:
Читай по строке из файла, проверяй есть ли такая в массиве, если есть, то читай следующую, если нет, то записывай в массив, а уже потом в файл выводи. Так проще будет ;-)
Например так:

program stroka;
const
 fname = 'C:\proba.txt';
var
 b: boolean;
 n, i: byte;
 f: text;
 s: string;
 a: array [0..255] of string;
begin
 n := 0;
 Assign(f, fname);
 Reset(f);
 repeat
 ReadLn(f, s);
 b := false;
 for i := 0 to n do
 if a[i] = s then
 begin
 b := true;
 break;
 end;
 if not b then
 begin
 a[n] := s;
 Inc(n);
 end;
 until eof(f);
 Close(f);
 Rewrite(f);
 for i := 0 to n - 1 do
 WriteLn(f, a[i]);
 Close(f);
end.

А у тебя есть синтаксические ошибки: не than а then и в последнем for двоеточие после i забыла.