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

[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

[Ozzя]

Создать типизированный файл , компоненты отдельные слова.

У тебя компоненты не отдельные слова, а отдельные символы.

[natka]

const n=5;
var
F,F1:file of string[20];
i:integer;
c:string[20];
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[1]'k' then
     if c='k' then c:='K';
     write(F1,c);
end;
close(F1); reset(F1);
for i:=1 to n do
begin
     read(F1,c); write©;
end;
END.

Только так я совсем запуталась, дайте идею.
Вдогонку: как сделать так чтобы ввод в файл прекращался по нажатию клавиши Enter, какой у нее код?

Я в принципе так и сделала - переделала свое - там ошибки, только до проверки не доходит, на этапе чтения данных из файла выдается - Типовая ошибка.

Я исправила:

Код

const n=5;
var
F,F1:file of string[20];
i:integer;
c:string[20];
BEGIN
assign(F,'C:/z25.dat');rewrite(F);
for i:=1 to n do
begin
     read(c);     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='k' then c:='K';
     end;
     write(F1,c);
end;
end.

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