Организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку. Удвоить в данном файле каждую цифру.

[Deg]

В Паскале организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку. Удвоить в данном файле каждую цифру.

[ZX Spectrum-128]

Задача "два в одном"?
Или две разные задачи? Собственные наработки есть?

[Deg]

Да, 2 в 1, вот программа почти с таким же условием, только тут фразу нужно вставить:

fileName = 'work.txt';
TempFileName = 'temp.txt';
var f1, FileTemp : Text;
s1 : string;

procedure writeF(s2 : string);
begin
Assign(f1, fileName);
{Если файл существует на диске,
то инициирует запись в ранее существовавший
текстовый файл для его расширения}
if FileExists(fileName) then begin
Append(f1);
end
else begin
{Если файл не существует, то создаем файл}
Rewrite(f1);
end;
writeln(f1, s2); //Записываем строку
Close(f1); //Закрываем файл
end;

begin
write('Введите строку для записи в файл: ');
readln(s1);
writeF(s1);{Вызываем процедуру для записи в файл строки}

{Создаем временный файл и записыываем в него строку TurboPascal}
Assign(FileTemp, TempFileName);
Rewrite(FileTemp);
Writeln(FileTemp, 'Turbo Pascal');

{Открываем для чтения рабочий файл,
считывем из него строки
и записываем эти строки во временный файл}
Assign(f1, fileName);
Reset(f1);
while not Eof(f1) do begin
readln(f1, s1);
writeln(FileTemp, s1);
end;
Close(f1);
Close(FileTemp);

{Стираем с диска рабочий файл}
Erase(f1);
{Переименовываем временный файл}
Rename(FileTemp, fileName);

writeln('Вывод результатов в файл '+fileName+' закончен');
end.

[ZX Spectrum-128]

Ну ладно, первая часть задачи у вас есть. А со второй есть мысли?

[Deg]

К сожалению нет, ни понимаю. Помогите пожалуйста, если сможите

[ZX Spectrum-128]

http://www.pascal.helpov.net/index/p...rs_programming
Вам нужны pos и insert
Если совсем ничего не получится, то
http://interacia.net/index.php/2011-...ing-1-40-.html
Задача за нумером 28