Сохранение в текстовый файл

[Lisёноk]

Здравствуйте!
По заданию мне необходимо результаты вычисления программы (т.е. второй массив и надпись "есть строки/нет строк") вынести в текстовый файл.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    SaveDialog1: TSaveDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TYPE TA=ARRAY of array of integer;
var
  Form1: TForm1;
  a:TA; b:Ta;
  i, j, t, d:integer;
  l:boolean;
  f: TEXTFILE;
  s: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

procedure findzero (x:TA; y:integer; var found: boolean);
var i,j:integer;
begin
  found:=false;
  For i:=0 to t-1 do
 begin
   For j:=0 to d-1 do
  begin
    if (x[i,j]=0) then
   begin
     found:=true;
     break;
   end;
  end;
 end;
end;

begin
  t:=StrToInt(LabeledEdit1.Text);
  d:=StrToInt(LabeledEdit2.Text);
  SetLength (a,t,d);
  SetLength (b,t,d);

  for i:=0 to t-1 do
 begin
   for j:=0 to d-1 do
  begin
    a[i,j]:=random(10);
    stringgrid1.cells[j,i]:=inttostr(a[i,j]);
  end;
 end;


  for j:=0 to d-1 do
 begin
   findzero(a,i, l);
   if l then
  begin
    for i:=0 to t-1 do
   begin
      Label1.Caption:= 'Есть строки с нулями';
      stringgrid2.cells[j,i]:=inttostr(a[i,j])
      s:= (Label1.Caption);
      MessageDlg ('Результаты сохранены', mtInformation, [mbOK],0);
   end;
  end
   else
 begin
  for i:=0 to t-1 do
  begin
    stringgrid2.cells[j,i]:=' ';
    Label1.Caption:= 'Нет строк с нулями';
    s:= (Label1.Caption) ;
    MessageDlg ('Результаты сохранены', mtInformation, [mbOK],0);


  end;
 end;
 end;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
  t:=StrToInt(labelededit1.Text);
  WITH StringGrid1 DO
  ColCount:=(t);
  Stringgrid2.colcount:=t;

  SetLength(a,t);
  SetLength(b,t);
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
  d:=StrToInt(labelededit2.Text);
  WITH StringGrid1 Do
  RowCount:=(d);
  Stringgrid2.rowcount:=d ;

  SetLength(a,d);
  SetLength(b,d);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with savedialog1 do
  if execute then
 begin
   assignfile (f,filename);
   rewrite(f);
   Writeln(f, s);
   closefile(f);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

В строке

s:= (Label1.Caption);

выдает ошибку

[Error] Unit1.pas(84): Missing operator or semicolon

Никак не могу понять, что необходимо исправить.
И если не трудно, подскажите как вывести в текстовый файл еще и массив.

[Дима я]

В этой строчке все ноормально.
Вообше такая ошибка бывает когда чего то не хватает .

Что значит твоя строчка

if l then в этом коде?

  for j:=0 to d-1 do
 begin
   findzero(a,i, l);
   if l then
  begin
    for i:=0 to t-1 do
   begin
      Label1.Caption:= 'Есть строки с нулями';
      stringgrid2.cells[j,i]:=inttostr(a[i,j])
      s:= (Label1.Caption);
      MessageDlg ('Результаты сохранены', mtInformation, [mbOK],0);
   end;
  end

[vedro-compota]

может у тебя label1 переименован.......

[Grag]

Чтобы не получать глупое сообщение об ошибке поставь ";" после оператора. Вот транслятор тебе и сообщает, что её самой-то, родимой, и не хватает!!!

Вот тут

      stringgrid2.cells[j,i]:=inttostr(a[i,j])
      s:= (Label1.Caption);

И скобки тут совсем не к месту, можно и без них... Я имею ввиду для Label1.Caption....

[Lisёноk]

ой :-[ вечная моя невнимательность(((((((
А подскажите, как сделать, что бы еще и массив второй выводить можно было?))
Пожалуйста!