Процедура для решения уравнения

var u1,u2,v1,v2,w1,w2:real;
procedure pr;
var x1,x2,y1,y2,z1,z2,r1,r2:real;
begin
x1:=3*(u1*w1-u2*w2);
x2:=3*(w1*u2+u1*w2);
y1:=2+w1-v1;
y2:=w2-v2;
z1:=(x1*y1+x2*y2)/(sqr(y1)+sqr(y2));
z2:=(x2*y1-x1*y2)/(sqr(y1)+sqr(y2));
r1:=2*u1+z1-7;
r2:=2*u2+r2;
writeln('Результат:');
if r2<0 then writeln(r1:0:2,' ',r2:0:2,'i')
else writeln(r1:0:2,' +',r2:0:2,'i');
end;
begin
writeln('Введите действительную и мнимую части числа u:');
readln(u1,u2);
writeln('Введите действительную и мнимую части числа v:');
readln(v1,v2);
writeln('Введите действительную и мнимую части числа w:');
readln(w1,w2);
pr;
end.

x1:=3*(u1*w1-u2*w2);//действительная часть произведения 3uw
x2:=3*(w1*u2+u1*w2);//то же мнимая часть
y1:=2+w1-v1;//действительная часть выражения 2+w-v
y2:=w2-v2;//то же мнимая часть
z1:=(x1*y1+x2*y2)/(sqr(y1)+sqr(y2));//действительная часть выражения 3uw/(2+w-v)=x/y
z2:=(x2*y1-x1*y2)/(sqr(y1)+sqr(y2));//то же мнимая часть
r1:=2*u1+z1-7;//конечный результат выражения 2u+z-7
r2:=2*u2+r2;//то же мнимая часть