В чем ошибка программы? Паскаль

[Тетрадь]

В чем ошибка программы, помогите исправить. Наверно в основной программе я неправильно обращаюсь к процедуре, посмотрите пожалуйста

unit op;
interface
var  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): integer;
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.

program pro2;
uses
    op,obrabotki;
begin
     per(p);
     writeln('Введите строку:');
     readln(s);
     kol(k);
     writeln('Перевертышей: ', k);
end.

[ZX Spectrum-128]

Процедура kol описана как функция.
Что такое pal?
Не описана нигде.

[Тетрадь]

Ошибся, вместо pal нужно per, обращение к процедуре per

[Serge_Bliznykov]

ошибка номер раз:

procedure kol(p: string): integer;
var

Процедура ничего не возвращает! Поэтому, либо исправьте на function, либо уберите :integer
Если исправите на функцию, не забудьте вернуть нужное значение в качестве результата данной функции.


ошибка номер два:

kol(k);

что за переменная k, про такую Паскаль (как и мы) в данном месте программы ничего не знает!

исправляйте, потом продолжим...


p.s. в 99.9% случаем компилятор посвечивает именно строчку с ошибкой и пишет, что ему (компилятору) в данной строке не нравится. Вы не пробовали читать текст ошибок и пытаться понять, что это означает?!!