Решить систему линейных уравнений с двумя неизвестными- Pascal(Паскаль)

uses crt;
type sustem = record;
              a1,a2,b1,b2,c1,c2:real;
              end;
var x,y:real;
function don(w:sustem):boolean;
begin
if (w.a1*w.b2-w.a2*w.b1)=0 then don:=false else don:=true;
end;
function onn(w:sustem):real;   //on распознается как зарезервированное слово
begin
x:=(w.c2*w.b1/(1+w.b2))-(w.c1*w.b2/(w.a1+w.a1*w.b1));
writeln('x:=',x:4:2);
onn:=x;
end;
function son(w:sustem):real;
begin
y:=(w.c1-w.a1*x)/w.b1;
writeln('y:=',y:4:2);
son:=y;
end;
var sus:sustem;
begin
writeln('vvedite a1');
readln(sus.a1);
writeln('vvedite a2');
readln(sus.a2);
writeln('vvedite b1');
readln(sus.b1);
writeln('vvedite b2');
readln(sus.b2);
writeln('vvedite c1');
readln(sus.c1);
writeln('vvedite c2');
readln(sus.c2);
if don(sus) then
 begin
  x:=onn(sus);
  y:=son(sus);
 end
else write('Система не определена');
readln;
end.