работа с текстовыми файлами

[бургер]

написал прогу, матрица генерируется в текстовый файл, а вектору не хватает места еще на символ (вектор с лева на право"\") размер 768 байт и больше блоков не ставит(((, поправьте пожалуйста...


Код:
uses wincrt;
var
f:text;
a:array[1..10,1..10] of integer;
i,j:integer;
v:array[1..10] of integer;
begin

randomize;
randseed:=10;
assign(f,'output.txt');
rewrite(f);

for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=random(100);
end;

for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(f,a[i,j]:7);
end;
writeln(f);
end;

writeln(f);

for i:=1 to 10 do v[i]:=a[i,i];
for i:=1 to 10 do write(f,v[i]:5);

end.

Заранее спасибо!