Изменить Функцию на Процедуру

Program PascalGuru;
{type massiv=array [1..5] of integer;}
var p1,p2:array [1..5] of integer;  {описание переменных}
    
    sum1,sum2,i,j,k,m,n1,n2:integer;
 
{---------------------------------------------------}
function c(a,b:integer):integer; {если "a" и "b" равны - возвращает 1, иначе - 0}
var d:integer;
begin
if a=b then
begin
d:=1;
c:=d;
end
else
  begin
    c := 0;
  end;
end;
{---------------------------------------------------}
 
begin
 writeln('Введите 5 элементов последовательности A ');
for i:=1 to 5 do
    read(p1[i]);   {считывание первой последовательности}
writeln('Введите 5 элементов последовательности B ');
for j:=1 to 5 do
    read(p2[j]); {считывание второй последовательности}
 
for k:=1 to 5 do  {первый цикл прохождения}
    begin
    sum1:=0; {обнуляем суммы}
     sum2:=0;
        for m:=1 to 5 do {второй цикл прохождения}
        begin
            n1:=c(p1[k],p2[m]);  {смотрим первую последовательность}
            sum1:=sum1+n1;
 
            n2:=c(p2[k],p1[m]);  {смотрим вторую последовательность}
            sum2:=sum2+n2
        end;
        if sum1=0 then  {если текущее число из первой последовательности не входит во вторую}
            write(p1[k],' '); {выводим его на экран}
        if sum2=0 then  {если текущее число из второй последовательности не входит во первую}
            write(p2[k],' '); {выводим его на экран}
    end;
readln;
end.

procedure C(const a, b: Integer; var d: Byte);
begin
    d := Ord(a = b);
end;