таблица умножения в файле

[kate158]

Помогите, пожалуйста!
Нужно в текстовый файл записать таблицу умножения.
Как перезаписывать файл при каждом перемножении??
Вот мой код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j,k,r:integer;
 outfile: TextFile;
begin
for i:=1 to 10 do begin
k:=i;
for j:=1 to 10 do begin
r:=j;
r:=r*k;
//showmessage(inttostr(r));
AssignFile(outfile, 'C:\outfile.txt'); 
Rewrite(outfile);
writeln(outfile, r); 
CloseFile(outfile); 
end;

[alex_fcsm]

Пример на форуме

[kate158]

пример понятен. но как все же организовать цикл. не могу догнать..(

[alex_fcsm]

var s:string;
    f:text;
    i,j:integer;
begin
Assign(f,'c:\1.txt');
rewrite(f);
for j:=1 to 9 do
 begin
 for i:=1 to 9 do
 begin
  write(f,i,'*',j,'=',i*j);
  write(f,' ');
 end;
 writeln(f);
 end;
close(f);
end.

Это на Паскале

[kate158]

вот! то, что нужно)) спасибо!!!!