что можно сделать:confused:

[Леонид Студент]

Пусть f – файловая переменная, соответствующая файлу типа File of integer. Написать процедуру Test4D(f), заменяющую в файле нулевые элементы максимальным из соседей.
0111040010432 должно получится 1111441432.

вот в принципе готовый код

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure Test3C(f: string);
var file_:File of integer;
s,buf:string;
max:integer;
i:integer;
begin
AssignFile(file_, f);
Rewrite(file_);
write('Plase enter number : ');
readln(s);
if s[1] = '0' then buf:=s[2] else buf:=s[1];

for i:=2 to length(s)-1 do
if s[i] = '0' then
begin
if strtoint(s[i-1])>strtoint(s[i+1]) then
buf:=buf+s[i-1]
else
buf:=buf+s[i+1]
end
else
buf:=buf+s[i];

if s[length(s)] = '0' then buf:=buf+s[length(s)-1] else buf:=buf+s[length(s)];
i:=StrToInt64(buf);
write(file_,i);
CloseFile(file_);
Writeln('Number was Got : '+buf);
writeln('Save in file : '+f);
readln;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Test3C('C:\Users\XTen\Desktop\Z\4\C onsole\Файл с данными.txt')
end.

я хотел спросить можно ли обойтись как нибудь без "strtoint"? или быть может я что то не так вообще написал?
подскажите пожалуйста.

[phomm]

код надо оформлять специальным тегом, для этого есть кнопочка #

Написали всё довольно-таки коряво...
"Пусть f – файловая переменная, соответствующая файлу типа File of integer." не вяжется с "procedure Test3C(f: string);"

Насколько я понял , Вы пытаетесь одновременно и писать и читать из одного файла - а это очень проблематично...

readln(s);
if s[1] = '0' then buf:=s[2] else buf:=s[1];

Непонятно, что Вы этим делаете, а если юзер ввел 1 ? то будет баг при обращении к s[2] !

Плохо улавливаю Ваши конвертации символов и цифр, и вряд ли strtoint тут виновата, да ещё и инт64 приплели... вобщем каша, сами себя запутали и надеетесь, что код рабочий.

И потом, таки раздел для паскаля, а у Вас-таки дельфи, будьте впредь поаккуратнее.

Вот как бы я решал такое :

1 заводим 2 массива цифр, положим от 1 до 1000
2 передаем процедуре имя файла
3 в цикле while not eof(file_) считываем каждое число в массив
4 запоминаем позицию в конце чтения (простой инкремент в цикле 3, по окончанию цикла будем знать где кончился файл, альтернативно можно и getfilesize использовать вне массива)
5 закрываем файл
6 цикл по массиву, в нем :
a если число не 0 то поставить его на это же место ВО ВТОРОЙ массив, иначе всё остальное
b если текущее проверяемое число крайнее, то не допускаем проверки вне массива (не проверяем индексы 0 и количество_элементов[п.4]+1)
c проверяем соседей - если один больше другого, то ставим ВО ВТОРОЙ МАССИВ первого, иначе второго
7 открываем файл на перезапись
8 в цикле до количество_элементов пишем кадое число из 2-го массива.
9 закрываем файл

вроде всё )