Создать типизированный файл , компоненты отдельные слова.
Отредактировать файл - если слово начинается с буква "к", заменить ее на букву "К".
я тут что - то написала, но замены не происходит, может кто-нибудь найдет ошибку.
const n=20;
var
F,F1:file of char;
i:integer;
c:char;
BEGIN
assign(F,'C:/z25.dat');rewrite(F);
for i:=1 to n do
begin
read©; write(F,c);
end;
close(F); reset(F);
assign(F1,'C:/z25_1.dat');rewrite(F1);
for i:=1 to n-1 do
begin
read(F,c);
if c='' then begin seek(F,i+1); write(F,c);
if c='k' then c:='K'; end;
write(F1,c); seek(F,i);
end;
close(F1); reset(F1);
for i:=1 to n do
begin
read(F1,c); write ( c ) ;
end;
END.
теги CODE - не html а bb коды, они пишутся в квадратных скобках.
Altair