[Delphi] Помогите выявить ошибки в задаче! Пожалуйста! Очень срочно!

[OtimJ]

Мне надо было написать программу которая после ввода размера диагоналей рисовала бы ромб звездочками(*) и сохраняла этот рисунок в файл(.txt).я написал что то, но много ругается дэлфи. Помогите доделать! Пожалуйста! Далее показываю свое творчество психа:

 unit Unit1;
  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons; 
 type 
  TForm1 = class(TForm)     Edit1: TEdit;  
   Edit2: TEdit;    
 Label1: TLabel; 
    Label2: TLabel;   
  BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    BitBtn3: TBitBtn;     SaveDialog1: TSaveDialog;     Edit3: TEdit;  
   Label3: TLabel; 
procedure BitBtn2Click(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);   
private    
 { Private declarations }   
public     
{ Public declarations }  
 end; 
 var 
        Form1: TForm1;  implementation                   uses Unit2; 
 {$R *.dfm} 
 procedure TForm1BitBtn2Click(Sender: TObject);  
var
 d1,d2:integer;         
     V,H:single;  
begin  
    val(edit1.Text,V,d1);   
   if d1<>0 then begin 
     edit1.Text:='ошибка';
  end;
       val(edit2.Text,H,d2); 
     if d2<>0 then begin      edit2.Text:='ошибка'
 end; 
 end; 
 procedure TForm1.BitBtn1Click(Sender: TObject);           var s:string; 
 begin   
   if savedialog1.Execute=false then exit;     
 s:=savedialog1.Files[0];           edit3.Text:=s      
    end; 
 end.  

  unit Unit2;  
interface    
 procedure Unit1(var V,H:single; s:string);  implementation   
  var  i,j:integer;
     A:array[1..60,1..60] of char;     begin  
   for i:=1 to 60 do 
    begin 
    for j:=1 to 60 do    
 begin 
    if (j=i+30) or (j=i-30) or (j=60-i+1+30) or (j=60-i+1-30)     then write('*') else write(' ');     end;    
 writeln;
   end; 
 end.

[/QUOTE]

[Sm1Le]

Что ДелФи пишет ?

[OtimJ]

Ругается на сроку перехода к другому юниту. А дальше вот не могу проверить.

[OtimJ]

Кому удобно - можно писать в асю: 400 девять девять ноль 394.