Файлы Опции

[Richard]

Помогите пожалуйста решить вот такое задание:
В текстовом файле удалить все пробелы.
Дальше описания переменных зайти не могу.

[Ozzя]

В Блокноте набей произвольный текст.
И посмотри 2-й файл, если все пробелы удалились, то всё Ок.

Добавлено через 16 мин.
volvo
Пока ты здесь
Без вспомогательного файлакак решить?
У меня опять ступор

Сообщение отредактировано: Ozzя - 22.05.2007 18:31

[Malice]

Пока ты здесь
Без вспомогательного файлакак решить?
У меня опять ступор

Ну или как обычно через одно место (стек, я имею ввиду )

var f:text;
procedure del_(var f:text);
var s:string;
begin
if not eof (f) then begin
readln (f,s);
del_(f);
while pos (' ',s)>0 do delete (s, pos(' ',s),1);
writeln (f,s);
end else rewrite (f);
end;

begin
assign (f,'c:\tst.txt');
reset (f);
del_(f); reset (f);
del_(f);
close (f);
end.