Из символьного файла переписать в новый файл все символы, предшествующие первому пробелу в исходном файле. Закончить результирующий файл восклицательным знаком.


program kontr5;
var f,g: file of char;
ch: char;
n: word;
begin
assign(f,'z5_1.txt'); reset(f);
assign(g,'z5_2.txt'); rewrite(g);
n:=filepos(f);
seek(f,n);
while ch<>' ' do
begin
seek(f,n);
read(f,ch);
write(g,ch);
inc(n);
end;
ch:='!';
write(g,ch);
writeln('by Adminadmin.ru');
readln;
close(f); close(g);
end.