Прошу помагите

выдает такие ошибки
[Pascal Error] Unit1.pas(76): E2029 BEGIN expected but END found
[Pascal Error] Unit1.pas(78): E2029 Declaration expected but end of file found
[Pascal Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit1.pas'

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
rowcount,colcount:integer;
implementation

uses Unit2;
const N=10; M=10;
var r:array [1..N,1..M] of real;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Function GetLine(s:string;n:integer):string;
function GetSubStr(k:string; expl:string ;n:integer):string;

var i,j:integer;
buf,st:string;

begin
form1.visible:=true;
i:=1;
repeat
st:=getline(memo1.Text,i);
if length(st)<>0 then
begin j:=1;
repeat
buf:=getsubstr(st,'',j);
if length(buf)<>0 then
try r[i,j]:=strtofloat(buf)
except on EconvertError do
begin
showmessage('gonhs,yj ddtcnb xbckj');
memo1.SetFocus;
exit;
end
end
else
begin
showmessage('потрібно ввести' + inttostr(colcount)+'стовпці');
memo1.SetFocus;
exit;
end;
j:=j+1;
until (j>colcount) or (length(buf)=0)

end
else
begin
showmessage('потрібно ввести' + inttostr(rowcount)+'рядків');
memo1.setfocus;
exit;
end;
i:=i+1
until (i>rowcount) or (length(st)=0);

end;
end.

unit Unit2;

interface

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

type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
UpDown2: TUpDown;
UpDown3: TUpDown;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
uses unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);


var k,i:integer;
begin

form2.show;
for i := 1 to strtoint(edit1.text) do
for k := 1 to strtoint(edit2.text) do
begin
unit1.rowcount:= strtoint(edit1.text);
unit1.colcount:= strtoint(edit2.text);
end;
end;

end.

0

Вот если бы заключил в теги [ DELPHI]код[ /DELPHI], можно было увидеть номера строк. А так... для начала