типизированные файлы, замена буквы на заглавную Опции

[natka]

Есть такая задачка:
Создать типизированный файл , компоненты отдельные слова.
Отредактировать файл - если слово начинается с буква "к", заменить ее на букву "К".
я тут что - то написала, но замены не происходит, может кто-нибудь найдет ошибку.

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

Сообщение отредактировано: volvo - 8.11.2006 13:06