Перевести из Pascal в Delphi на форму

[Ken_Watanabe]

Здравствуйте, переведите код пожалуйста.

program Series38;
var
Ret,K,i,b,a,a1,b1:integer;
bol,bol1:boolean;
begin
i:=0;
Writeln('Введите число наборов K');
Readln(K);
Writeln('Введите элементы наборов. Признаком завершения каждого набора является число 0');
while ido
begin
inc(i);
bol:=true;
bol1:=true;
Write(i,') ');
Read(a);
a1:=a;
While a<>0 do begin
b:=a; b1:=a1;
Read(a); a1:=a;
if (a0) then bol:=false;
if (a1>b1)and(a1<>0) then bol1:=false;
end;
if (bol)and(not bol1) then Ret:=1;
if (bol1)and(not bol) then Ret:=-1;
if (bol1)and(bol) then Ret:=0;
Writeln('Результат (',Ret,').');
end;
end.

[Stilet]

Перевод:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
Ret,K,i,b,a,a1,b1:integer;
bol,bol1:boolean;
begin
i:=0;
k:=StrToInt(InputBox('gogogo','Введите число наборов K',''));
ShowMessage('Введите элементы наборов. Признаком завершения каждого набора является число 0');
while true do
begin
inc(i);
bol:=true;
bol1:=true;

a:=StrToInt(InputBox('gogogo','a',''));
a1:=a;
While ido do begin
b:=a; b1:=a1;
a:=StrToInt(InputBox('gogogo','a',''));  a1:=a;
if (a0) then bol:=false;
if (a1>b1)and(a1<>0) then bol1:=false;
end;
if (bol)and(not bol1) then Ret:=1;
if (bol1)and(not bol) then Ret:=-1;
if (bol1)and(bol) then Ret:=0;
ShowMessage('Результат ('+IntToStr(Ret)+').');
end;

end.

Только вот вопрос: А оно работало?

[Ken_Watanabe]

ого спасибо вам огромное! да работал

[Stilet]

да работал

Чудеса... Наверное это суперновая модификация юберпаскаля, раз такой код работал...