Работа в Pascal с файлами

[ZveRtheGameS]

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

Function MyCopy(str:string):string;
var i:byte;
begin
MyCopy:='';
i:=length(str);
while not (str[i] in ['0'..'9']) and (i>1)do dec(i);
if i<>1 then
begin
delete(str,1,i);
i:=1;
while (Str[i]<>' ') and (i<length(str)) do inc(i);
delete(str,1,i);
MyCopy:=str;
end;
end;
var s:string; f,g:text;
begin
assign(f,'in.txt');
assign(g,'out.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f,s);
writeln(g,Mycopy(s));
end;
close(f);
close(g);
end.

Огромное спасибо, но сразу же после нажатия запуск - консоль закрывается, readln не помогает...

[ZX Spectrum-128]

Файл in.txt создан?

[ZveRtheGameS]

Сообщение от ZX Spectrum-128

Файл in.txt создан?

имя задавать только in, а txt просто расширение текстового файла?

[ZX Spectrum-128]

Да, так и сделайте

[ZveRtheGameS]

Сообщение от ZX Spectrum-128

Да, так и сделайте

хм) теперь я понял принцип работы программы, просто до этого никогда с этим не сталкивался, спасибо Вам!