В чем ошибка программы?

procedure kol(p: string): integer;

k := k + pal(copy(s, 1, i - 1));

unit op;
interface
var  k,p,s: string;
implementation
end.

unit obrabotki;
interface
uses op;
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 begin
        per := 0;
        break
        end
end;
procedure kol(p: string);
var
    i, k: integer;
begin
s := s + ' ';
k := 0;
while length(s) > 0 do
 begin
  while (length(s) > 0) and (s[1] in [' ', ',', '.', '?', '!', '''', '"', ':', ';']) do delete(s, 1, 1);
  for i := 1 to length(s) do if s[i] in [' ', ',', '.', '?', '!', '''', '"', ':', ';']
  then begin
   k := k + per(copy(s, 1, i - 1));
   delete(s, 1, i);
   break
  end;
 end;
end;
end.

program pro2;
uses
    op,obrabotki;
begin
     per(p);
     writeln('Ââåäèòå ñòðîêó:');
     readln(s);
     kol(k);
     writeln('Ïåðåâåðòûøåé: ', k);
end.