Найти ошибку в программе

program me;
    var s,x,y:integer;
    procedure sum(a,b:integer; var sum:integer);
begin
      if a<b then 
           x:=a div b+5;
      if a=b then
           x:=-5;
      if a>b then  
           x:=(a*a-b) div b;
end;
      begin
        WriteLn('Введите x');
         readLn(x);
        WriteLn('Введите y');
         readLn(y);
            sum(x,y,s);
        WriteLn('sum=',s);
      end.

program me;
 
var
  s, x, y: integer;
 
procedure sum(a, b: integer; var sum: integer);
var
  x: integer;
begin
  if a < b then 
    x := a div b + 5;
  if a = b then
    x := -5;
  if a > b then  
    x := (a * a - b) div b;
  sum := x;
end;
 
begin
  WriteLn('Введите x');
  readLn(x);
  WriteLn('Введите y');
  readLn(y);
  sum(x, y, s);
  WriteLn('sum=', s);
end.

program me;
 
procedure sum(a, b: integer; var f: integer);
begin
  if a < b then
    f := a div b + 5
  else
    if a = b then
      f := -5
    else f := (a * a - b) div b
end;
 
var
  s, x, y: integer;
 
begin
  write('Введите x: ');
  readln(x);
  write('Введите y: ');
  readln(y);
  sum(x, y, s);
  writeln('sum = ', s)
end.