В чем дело? Ошибка 207 ошибочная операция с плавающей запятой - Turbo Pascal

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

Язык паскаль! Помогите пожалуйста )

program pr1;
uses crt;
var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
procedure k;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin clrscr;
writeln('wwedite ab,bc,cd,da');
readln(ab,bc,cd,da);
writeln('wwedite diagonal');
readln(ac);
a:=ab; b:=bc; c:=ac;
k;
z:=s; a:=cd; b:=da;
k;
s:=s+z;
writeln('ploshad vipyklogo chetirohygolnika ravna',s:5:2);
readln;
end.

Решение задачи: «В чем дело? Ошибка 207 ошибочная операция с плавающей запятой»

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

uses crt;
var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
procedure k;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
begin
clrscr;
{ввод длин диагонали сторон выпуклого четырехугольника}
repeat
write('Введите длину диагонали ac=');
readln(ac);
until ac>0;
repeat
writeln('Введите длины первой пары смежных сторон,');
writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
readln(ab,bc);
until(ab<ac)and(bc<ac)and(ab+bc>ac);
repeat
writeln('Введите длины второй пары смежных сторон,');
writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
readln(cd,da);
until(cd<ac)and(da<ac)and(cd+da>ac);
a:=ab; b:=bc; c:=ac;
k;
z:=s; a:=cd; b:=da;
k;
s:=s+z;
writeln('Площадь данного выпуклого четырехугольника=',s:0:2);
readln;
end.

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

В начале кода подключается библиотека crt, которая является стандартной для Turbo Pascal.
Затем объявляются переменные ab, bc, cd, da, ac, a, b, c, p, s, z, которые представляют собой вещественные числа.
Создается процедура k, которая выполняет вычисления внутри себя.
Затем начинается основной цикл программы, который включает в себя ввод длины диагонали ac и длины первой пары смежных сторон ab и bc. Это необходимо для создания треугольника с диагональю и острыми углами при диагонали.
После этого вводятся длины второй пары смежных сторон cd и da. Также проверяется, что сумма этих длин больше или равна ac.
Далее переменные a, b и c присваиваются значениям ab, bc и ac соответственно.
Вызывается процедура k дважды, чтобы вычислить площадь выпуклого четырехугольника.
Затем выводится значение переменной s, которое представляет собой площадь выпуклого четырехугольника.
Программа завершается, и пользователю предлагается ввести данные для расчета площади еще одного выпуклого четырехугольника.