Написать программу с использованием процедуры для вычисления параметра 2-ух треугольников — Pascal(Паскаль)

uses crt;
{процедура периметр}
procedure Perimetr(a,b,c:real;var p:real);
begin
p:=a+b+c;
end;
{функция проверки ввода данных на существование такого треугольника}
function Proverka(a,b,c:real):boolean;
begin
if(abs(a-b)<c)and(a+b>c)
then Proverka:=true else Proverka:=false;
end;
var a,b,c,p:real;
begin
clrscr;
repeat
writeln('Введите длины сторон первого треугольника:');
write('a- ');readln(a);
write('b- ');readln(b);
write('c- ');readln(c);
if not Proverka(a,b,c)then writeln('Это не треугольник!');
until Proverka(a,b,c);
Perimetr(a,b,c,p);
writeln('Периметр=',p:0:2);
repeat
writeln('Введите длины сторон второго треугольника:');
write('a- ');readln(a);
write('b- ');readln(b);
write('c- ');readln(c);
if not Proverka(a,b,c)then writeln('Это не треугольник!');
until Proverka(a,b,c);
Perimetr(a,b,c,p);
writeln('Периметр=',p:0:2);
readln
end.