Ошибка в коде, Incompatible types - Pascal ABC

Формулировка задачи:

Доброго времени суток! Ошибка в коде, но не могу понять почему...помогите пожалуйста разобраться! Заранее спасибо

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils,
  math;
 
var y,s,t,r1,r2:real;
 
 procedure podschet (a,b,c:real; var podpr:real);
 begin
 podpr:=(2*a-b-cos(c))/3.5-abs(c);
  end;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    begin
Write('Введите S = '); Read(S);
Write('Введите t = '); Read(t);
y:=podschet(t,(-3*s),(2.5-t),r1)+podschet(5.2,(3*t),(s-t),r2);
writeln('При S=',s:5:1,' и t= ',t:5:1,' y=',y:6:2);
readln;
readln;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Ошибка находится в этой строке

y:=podschet(t,(-3*s),(2.5-t),r1)+podschet(5.2,(3*t),(s-t),r2);

Решение задачи: «Ошибка в коде, Incompatible types»

Листинг программы

procedure podschet (a,b,c:real;var r:real);
begin
r:=(2*a-b-cos(c))/3.5-abs(c);
end;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    begin
Write('Введите S = '); Readln(S);
Write('Введите t = '); Readln(t);
podschet(t,-3*s,2.5-t,r1);
podschet(5.2,3*t,s-t,r2);
y:=r1+r2;
writeln('При S=',s:5:1,' и t= ',t:5:1,' y=',y:6:2);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
readln;
end.

Объяснение кода листинга программы

В процедуре podschet используются три переменные типа real: a, b и c, а также одна переменная типа real var: r.
Выражение (2*a-b-cos(c))/3.5-abs(c) вычисляется и присваивается переменной r.
В блоке try считываются значения переменных S и t с помощью функций Readln.
Далее вызываются две функции podschet с аргументами t, -3s, 2.5-t и r1, и 5.2, 3t, s-t и r2 соответственно.
Результат вычислений функций podschet сохраняется в переменную y.
Выводится сообщение с значениями переменных S, t и y.
В блоке except обрабатывается исключение, выводится сообщение об ошибке.