Помощь в доработке программы. Паскаль. Файлы

[Тетрадь]

Нужно подсчитать слова перевертыши.
Задание на текстовые файлы.Паскаль АBC

program pro2;
uses op, obrabotki;
type
f:text;
st:string;
begin
assign(f,'in.txt');
     kol(st,k);
     writeln('Перевертышей: ', k)
end.
end.

unit obrabotki;
interface
function per(p: string): integer;
procedure kol(st: string; var k:integer);

implementation
function per(p: string): integer;
var i: integer;
begin
  per := 1;
  for i := 1 to length(p) div 2 do
                  if p[i] <> p[length(p) - i + 1] then per := 0;

end;
procedure kol(st: string; var k:integer);
var
   i: integer; pp:string;
begin
assign(f,'in.txt');
reset(f);
 k := 0;
 i:=1;
 while NOT(SEEKEOF(st)) do begin
 while i<=length(st) do
 begin
       if st[i]<>' '  then begin   pp :='';
                                   while st[i]<>' ' do begin pp:=pp+st[i];i:=i+1 end;
                                   k := k + per(pp);
                           end;
       i:=i+1;
 end;

end;
close(f);
end.

unit op;
interface
var
f:text;
st:string;
implementation
end.

in.txt

[ZX Spectrum-128]

А что кодом не так? Синтаксические ошибки? Или еще что-то?

while NOT(SEEKEOF(st)) do begin
Так нельзя, st типа string
Нужно
While not eof(f) do

[Тетрадь]

Неизвестный идентификатор f

[ZX Spectrum-128]

потому что вы f в type запихали, а надо в var

[Тетрадь]

Все равно не работает. Не могу разобрать ошибку

[ZX Spectrum-128]

while NOT EOF(f) do 
begin
 readln(f,st); // из файла кто читать будет?
 while i<=length(st) do //читаем до конца строки, которой нет

[ZX Spectrum-128]

program pro2;
uses op, obrabotki;
var
  k:integer;
begin
  kol(st,k);
  writeln('Перевертышей: ', k)
end.
end.

unit op;
interface
var
  f:text;
  st:string;
implementation
end.

unit
  obrabotki;

interface

function per(p: string): integer;
procedure kol(st: string; var k:integer);

implementation
uses
  op;
function per(p: string): integer;
var
  i: integer;
begin
  per := 1;
  for i := 1 to length(p) div 2 do
    if p[i] <> p[length(p) - i + 1] then per := 0;
end;

procedure kol(st: string; var k:integer);
var
  i: integer; pp:string;
begin
  assign(f,'in.txt');
  reset(f);
  k := 0;
  i:=1;
  while NOT EOF(f) do
    begin
      readln(f,st);
      st:=st+' ';
      while i<=length(st) do
        begin
          if st[i]<>' '  then
            begin
              pp :='';
              while st[i]<>' ' do
                begin
                  pp:=pp+st[i];
                  i:=i+1
                end;
                k := k + per(pp);
            end;
          i:=i+1;
     end;
  end;
  close(f);
end;
end.

[Тетрадь]

Спасибо большое)