Upravil jsem to, soubor se mi uloží, ale se špatnými hodnotami, spíš je jich tam víc než by mělo, z toho jsou ale některé správně :-D.
Je chyba v tom, že nemám určený co je vlastně výsledek?
procedure TForm1.bt_ulozClick(Sender: TObject);
var nazev,vysledek:string;
Vystup:textfile;
begin
nazev:='Vysledek.pas';
Assignfile(vystup, nazev);
rewrite(vystup);
writeln(vystup, n); writeln(vystup, 1);
for j:=1 to n do
begin
a[i,j]:=StrToInt(sg2.Cells[j-1,0]);
writeln(vystup,a[i,j]);
end;
closefile(vystup);
end;