Файловый тип.

program FFF;
Var
    f:text;               { файловая переменная } 
    KolStr, KolSymb :integer;                  { кол-во строк и символов }
    s: string ; { очередная строка файла }
begin
    { связывание файловой переменной с файлом }
    Assign(f,'myfile1.txt');
    Reset(f);           { открытие файла для чтения }
    KolStr := 0; KolSymb := 0;
 
    while not eof(f) do {пока не конец файла - читаем его построчно}
    begin 
           Readln(f,s); { очередную строку заносим в переменную s }         
           KolStr := KolStr+1; 
           KolSymb := KolSymb + Length(s); { кол-во символов увеличиваем на длину очередной строки S}
    end;
    Close(f);         { закрытие файла }
    writeln('Kol-vo strok ', KolStr, ' kol-vo symb. ', KolSymb);
    writeln('Nazhmite Enter dlja vyxoda... ') ; readln; 
end.

var
f:text;
i,k:integer;
a:array[1..100]of string;
begin
writeln('vvedite stroku');
readln(a[1]);
assign(f,'input.txt');
reset(f);
k:=1;
while not eof(f) do 
begin
inc(k);
readln(f,a[k]);
end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
writeln(f,a[i]);
close(f);
end.

var
f:text;
i,k:integer;
s:string;
a:array[1..100]of string;
begin
writeln('vvedite stroku');
readln(s);
assign(f,'input.txt');
reset(f);
while not eof(f) do 
begin
inc(k);
readln(f,a[k]);
end;
close(f);
inc(k);
a[k]:=s;
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
writeln(f,a[i]);
close(f);
end.

var
t:text;
i,j,k,p,kol:integer;
a,b:array[1..10000]of integer;
begin
assign(t,'f');
reset(t);
while not eof(f) do 
begin
inc(k);
read(f,a[k]);
end;
close(f);
for i:=1 to k do
begin
kol:=0;
 for j:=1 to k do
   if a[i]=a[j]then inc(kol); 
if kol=1 then 
     begin
     inc(p);
     b[p]:a=[i];
     end;
end;
assign(f,'g');
rewrite(f);
for i:=1 to p do
writeln(f,b[i]);
close(f);
end.