Вывести сохранение в текущий файл..

[CodeExpert]

помогите пожалуйста вывести сохранение данных в этот же файл что открыт:

program laba_8;
uses Crt;

function Strukt(var s:string):string;
var
 t:string;//временная строка
 o:string;//результирующая строка
 i:integer;//счетчик
 f:boolean;//условие действия
begin
i:=2;
while i<=length(s) do begin
if (s[i]=char(#32))and(s[i-1]=char(#32)) then 
 begin delete(s,i,1) end else inc(i);
end;

 while length(s)<>0 do
 begin
  f:=false;//первоначальное значение счетчика
  
  if pos(' ',s)<>0 then //разделитель слов
      begin
        t:=copy(s,1,pos(' ',s)-1);//копируем во временную
        delete(s,1,pos(' ',s));//удаляем использованное
  end else
  begin
   t:=copy(s,1,length(s)); //копируем во временную
   delete(s,1,length(s));//удаляем использованное
  end;
  
  for i:=1 to length(t) do
   if t[i] in ['0'..'9'] then
   begin
    o:=o+'('+t+') '; //включаем в ()
    f:=true; //условие нахождения
    break;
   end;
   if not f then
   o:=o+t+' ';//результирующая строка
 end;
Strukt:=o;
end;
var s:string; //оперируемая строка 
    t:text; //содержимое файла
    f,i:integer;
    mas:array[1..100]of string;
    st:integer;
begin
Writeln('Первоначальный текст файла:');
Assign(t,'D:\Res.txt'); //связываем переменную
Reset(t); //открываем файл для чтения
i:=1;//первоначальное значение ограничителя;
{заносим строки файла в строковый массив}
while (not eof(t)) and (not eoln(t)) do begin
 readln(t,mas[i]);inc(i);
 end;
Writeln('Первоначальное содержимое файла:');
for f:=1 to i-1 do begin
 writeln(mas[f]);end;Writeln;
{преобразуем содержимое}
for f:=1 to i-1 do begin
 mas[f]:=strukt(mas[f]);end;
Writeln('Результирующее содержимое файла:');
for f:=1 to i-1 do begin
 writeln(mas[f]);end;
????????

Readln;
end.

[Stilet]

Хм...
Насколько я знаю рпаскаль позволяет r\w в тот же файл при двух условиях
1) Если используется нетипированный файл (это полюбому)
2) Только через BlockRead\BlockWrite (Насчет этого ограничения могу ошибаться)
при этом открывается он процедурой Reset (несмотря на то что многи книги пишут что она открывает только на чтение)

т.е. Рекомендую попробовать перейти на нетипизированные файл.

[CodeExpert]

Спасиб, я уже разобрался, просто в условиях лабы моей не было указано что считывать и выводить из разных файлов:

var s:string; //оперируемая строка 
    o,t:text; //содержимое файла
    f,i:integer;
    mas:array[1..100]of string;
    st:integer;
begin
Writeln('Первоначальный текст файла:');
{связываем переменные}
Assign(t,'D:\Input.txt'); 
Assign(o,'D:\Output.txt'); 
{действия с файлами}
Reset(t); //открываем файл для чтения
rewrite(o);//открываем файл для перезаписи


{заносим строки файла в строковый массив}
i:=1;//первоначальное значение ограничителя;
while (not eof(t)) and (not eoln(t)) do begin
 readln(t,mas[i]);inc(i);
 end;
 
Writeln('Первоначальное содержимое файла:');
for f:=1 to i-1 do begin
 writeln(mas[f]);end;Writeln;
 
{преобразуем содержимое}
for f:=1 to i-1 do begin
 mas[f]:=strukt(mas[f]);end;
 
Writeln('Результирующее содержимое файла:');
for f:=1 to i-1 do begin
 writeln(mas[f]);end;
 
{заносим содержимое в файлы} 
for f:=1 to i do begin
Writeln(o,mas[f]);end;

{закрываем файлы}
close(t);
close(o);