Вопрос Помогите, пожалуйста с Delphi.

Вот сама программа (целиком):
unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
a,b,c,d:integer;

implementation

{$R *.lfm}

{ TForm1 }
Procedure vvod;

begin
a:=strtoint(form1.edit1.text);
b:=strtoint(form1.edit2.text);
c:=strtoint(form1.edit3.text);
d:=strtoint(form1.edit4.text);
end;
procedure change;
begin
edit1.text:=inttostr(b);
edit2.text:=inttostr(a);
edit3.text:=inttostr(d);
edit4.text:=inttostr(c);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
vvod;
change;
end;

end.
Программа должна поменять числа местами, при этом нужно использовать процедуры.