турбо паскаль ТЕКСТОВЫЙ ФАЙЛ

[dimagtr]

помогите пожалуйста

Дан текстовый файл f . Преобразовать строки файла f по правилу : создать новую строку из шести первых и трёх последних символов строки.

заранее благодарю)))

[Cannibal]

while not eof(f) do begin
  readln(f,str);
  if length(str)>=6 then
    str:=copy(str,1,6)+copy(str,length(str)-3,3)
  else
    str:='Не достаточная длинна строки'
  writeln(g,str);
end;

[Mad_Cat]

 str:=copy(str,1,6)+copy(str,length(str)-2,3);

[dimagtr]

а как переписать преобразованные строки в файл g ?

assign (f,'str') ;
assign (g,'str');
reset (f);
rewrite (g);

[Stilet]

А что, writeln(g,str); указанный выше не политкорректен?

[dimagtr]

Сообщение от Stilet

А что, writeln(g,str); указанный выше не политкорректен?

похоже что всё в порядке)