Помощь в переделывании кода
 

помогите пожайлуста программу сделал через функцию.
потом учитель сказал через процедуру

Uses crt;
Var x1,y1,x2,y2,x3,y3:integer;
S1,s2,s3,p:real;
procedure rast (a,b:real; var r:real);
Begin
R:=sqrt(sqr(a-b)+sqr(y2-y1));
End;
Begin
clrscr;
Writeln('vvedite koordinaty tochki x1 i y1 dlya 1 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 1 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 1 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S1:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 1 treugolnika=',s1:4:2);
Writeln('vvedite koordinaty tochki x1 i y1 dlya 2 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 2 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 2 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S2:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 2 treugolnika=',s2:4:2);
Writeln('vvedite koordinaty tochki x1 i y1 dlya 3 treugolnika');
readln(x1,y1);
Writeln('vvedite koordinaty tochki x2 i y2 dlya 3 treugolnika');
readln(x2,y2);
Writeln('vvedite koordinaty tochki x3 i y3 dlya 3 treugolnika');
readln(x3,y3);
P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2;
S3:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)));
Writeln('plosshad` 3 treugolnoka=',s3:4:2);
if (s1<s2) and (s3<s2) then if s1<s3 then writeln('samyy malenki 1 treugolnik')
else writeln('samyy malenki 3 treugolnik')
else writeln('samyy malenki 2 treugolnik');
Readln;
End.


извините код большой
помогите плиз ато из технаря выкинут:tehnari_ru_281:

ой сорри не в себе был((((((((((((((
проверьте, пожайлуста.
вот что выдаёт
Ссылка удалена

Предупреждение:

Тега [img] у нас на форуме нет. Примечание модератора.

Нет, с процедурой так нельзя обращаться.
Можно, например, так:
В разделе описания переменных (Var) добавить, например
R1, R2, R3:Real;
Далее:
Rast(x1,y1,R1);
Rast(x2,y2,R2);
Rast(x3,y3,R3);
P:=R1+R2+R3;
Вот так.