Нужна перевести код с Паскаля,что бы он работал в Lazarus

program pdsa;
 
const
n = 20;
var
xa,ya,za,xb,yb,zb,xc,yc,zc,k,l: integer;
lab,lbc,lac: real;
begin
writeln('Введите координаты вершины a');
readln(xa);
readln(ya);
readln(za);
writeln('Введите координаты вершины b');
readln(xb);
readln(yb);
readln(zb);
writeln('Введите координаты вершины c');
readln(xc);
readln(yc);
readln(zc);
lab:=sqrt(sqr(xa-xb)+sqr(ya-yb)+sqr(za-zb));
lbc:=sqrt(sqr(xb-xc)+sqr(yb-yc)+sqr(zb-zc));
lac:=sqrt(sqr(xa-xc)+sqr(ya-yc)+sqr(za-zc));
k:=0;
l:=0;
if lab=lbc then
k:=k+1;
if lab=lac then
k:=k+1;
if lbc=lac then
k:=k+1;
if k>0 then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник неравнобедренный');
if lab<>lbc then
l:=l+1;
if lab<>lac then
l:=l+1;
if lbc<>lac then
l:=l+1;
if l>0 then
writeln('Треугольник неправильный')
else
writeln('Треугольник правильный');
if sqr(lab)=(sqr(lbc)+sqr(lac)) then
writeln('Треугольник прямоугольный');
if sqr(lbc)=(sqr(lab)+sqr(lac)) then
writeln('Треугольник прямоугольный');
if sqr(lac)=(sqr(lab)+sqr(lbc)) then
writeln('Треугольник прямоугольный');
end.

unit ZadanieGUIpr093unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin, Math;
 
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    SpinEdit6: TSpinEdit;
    SpinEdit7: TSpinEdit;
    SpinEdit8: TSpinEdit;
    SpinEdit9: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
{Процедура-обработчик события "OnClick"  кнопки "Вывести ответ"}
var
  xa,ya,za,xb,yb,zb,xc,yc,zc,k,d: integer;
  lab,lbc,lac: real;
begin
  xa:= SpinEdit1.Value;
  ya:= SpinEdit2.Value;
  za:= SpinEdit3.Value;
 
  xb:= SpinEdit4.Value;
  yb:= SpinEdit5.Value;
  zb:= SpinEdit6.Value;
 
  xc:= SpinEdit7.Value;
  yc:= SpinEdit8.Value;
  zc:= SpinEdit9.Value;
 
  lab:= sqrt(sqr(xa-xb)+sqr(ya-yb)+sqr(za-zb));
  lbc:= sqrt(sqr(xb-xc)+sqr(yb-yc)+sqr(zb-zc));
  lac:= sqrt(sqr(xa-xc)+sqr(ya-yc)+sqr(za-zc));
 
  k:= 0;
  d:= 0;
  if SameValue(lab, lbc) then      {эквивалентна  записи  if lab = lbc then }
    k:= k+1;
  if SameValue(lab, lac) then
    k:= k+1;
  if SameValue(lbc, lac) then
    k:= k+1;
  if k > 0 then
    label7.Caption:= 'Треугольник равнобедренный.'
  else
    label7.Caption:= 'Треугольник не равнобедренный.';
 
  if lab <> lbc then
    d:= d+1;
  if lab <> lac then
    d:= d+1;
  if lbc <> lac then
    d:= d+1;
  if d > 0 then
    label8.Caption:= 'Треугольник неправильный.'
  else
    label8.Caption:= 'Треугольник правильный.';
 
  if (SameValue(sqr(lab),(sqr(lbc)+sqr(lac)))) or
     (SameValue(sqr(lbc),(sqr(lab)+sqr(lac)))) or
     (SameValue(sqr(lac),(sqr(lab)+sqr(lbc))))
  then
    label9.Caption:= 'Треугольник прямоугольный.';
 
end;
 
end.