program Fliniowa;
uses
Forms;
{$R *.res}
procedure wprowadzenie(var a,b,c,d:integer);
begin
writeln('Wprowadz wspolrzedne pierwszego punktu ');
readln(a,b);
writeln('Wprowadz wspolrzedne drugiego punktu ');
readln(c,d);
end;
function obliczanie(var xa,xb,ya,yb:integer):real;
var a,y:real;
begin
a:=(yb-ya)/(xb-xa);
y:=a*(xb-xa)+ya;
y:=a*xb-a*xa+ya;
y:=a*xa+ya-a*xa;
writeln('y=',a:0:0,'x+',ya-a*xa:0:0);
end;
var xa,xb,ya,yb,a,b,c,d:integer;
begin
wprowadzenie(a,b,c,d);
obliczanie(xa,xb,ya,yb);
readln;
end.
Witam czy mógłby ktoś poprawić błędy? Program działa lecz w pewnym momencie sie wyłącza. Z góry dzięki za pomoc.