Delphi создать прогу, переводящую числа из арабского в римское

[salmon172]

здрасьте, у меня проблема вот такая... нужно сделать прогу переводящую арабское число в римское и наоборот,
при запуске выдает ошибку [Error] Unit1.pas(65): Statement expected but 'PROCEDURE' found и указывает на процедуру Button2Click, а так перевод из римского в арабское работает... помогите пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
   r:array[1..13] of string=('I','IV','V','IX','X','XL','L','XC','C','XD','D','CM','M');
   m:array[1..13] of integer=(1,4,5,9,10,40,50,90,100,400,500,900,1000);
var
  Form1: TForm1;
  a:integer;

implementation

{$R *.dfm}

   procedure TForm1.Button1Click(Sender: TObject);
        // из римского в арабское
var a:string;
    i,k,j,s:integer;
    b:array[1..50] of integer;

begin
a:=(Edit3.text);

for i:=1 to length(a) do
    begin
      if a[i]='I'then b[i]:=1;
      if a[i]='V'then b[i]:=5;
      if a[i]='X'then b[i]:=10;
      if a[i]='L'then b[i]:=50;
      if a[i]='C'then b[i]:=100;
      if a[i]='D'then b[i]:=500;
      if a[i]='M'then b[i]:=1000;
    end;
s:=0;
for i:=1 to length(a) do
   begin
     s:=s+b[i];
     if(i>1)and(b[i-1]<b[i]) then s:=s-2*b[i-1];
   end;
edit2.text:=inttostr(S);




procedure TForm1.Button2Click(Sender: TObject);
// из арабского в римское
 var j,i,n:integer;
  k:string;
  begin
  n:=strtoint(Edit3.text);
    i:=13;
  while n>0 do
 begin
   if  m[i]<=n then
   begin
    n:=n-m[i];
    Edit2.text:=inttostr(r[i]);
    else
    i:=i-1;
	   end;
   end;

end;

end.

[whatever]

" end; " после Button1Click забыл :D
Учи английский, пригодится.

[salmon172]

блииин, я даже не заметил,а вот сейчас еще проблема возникла
из второй процедуры на строчке Edit2.text:=inttostr(r[i]);
выдает [Error] Unit1.pas (77): Существует не перегруженная версия 'IntToStr', которую можно назвать с этими аргументами

[salmon172]

спасибо большое)) и чем там можно заменить???

[whatever]

Напиши просто Edit2.text:=r[i];
inttostr(r[i]) тут не прокатит, так как

r:array[1..13] of string=('I','IV','V','IX','X','XL', 'L','XC','C','XD','D','CM','M');

То есть это уже строки, а не целые цисла

[Serge_Bliznykov]

whatever, +1

вот так работает:

procedure TForm1.Button1Click(Sender: TObject);
// из арабского в римское
var i, n: integer;
begin
  n := strtoint(Edit3.text);
  i := 13;
  Edit2.text := '';
  while n > 0 do
  begin
    if m[i] <= n then
    begin
      n := n - m[i];
      Edit2.text := Edit2.text + r[i];
    end  
    else
      i := i - 1;
  end;
end;