Определить сколько в тексте символов ‘*’ - Turbo Pascal

Формулировка задачи:

Формулировка задачи: Создать текстовый файл из х=11 строк. В каждой строке до у=63 символов. Определить сколько в тексте символов ‘*’ Я сделал программку, но что-то она все слова считает, помогите пожалуйста
program LR1;
usescrt;
vari,k,x:integer;
F:TEXT;
c:char;
S:string[63];
begin
clrscr;
Assign(F,'text.txt');
Rewrite(f);
writeln('введите текст :');
for x:=1 to 11 do
begin
readln(S);
writeln(F,S);
end;
close(f);
reset(f);
c:=' ';
k:=0;
while NOT EOF(F) do
begin
while  NOT EOLN(F)  do
begin
read(F,S);
i:=1;
While i<=length(S) do
begin
if S[i]<>c then k:=k+1;
while (S[i]<>c) and (i<=length(S)) do inc(i);
inc(i);
end;
end;
readln(F);
end;
writeln('количество * в тексте : ',k);
close(f);
end.


textual

Код к задаче: «Определить сколько в тексте символов ‘*’ - Turbo Pascal»

var i,k,x:integer;
F:TEXT;
c:char;
S:string[63];
begin
Assign(F,'text.txt');
Rewrite(f);
writeln('введите текст :');
for x:=1 to 11 do
begin
readln(S);
writeln(F,S);
end;
close(f);
reset(f);
k:=0;
while NOT EOF(F) do
begin
read(F,c);
if c='*' then k:=k+1;
end;
writeln('количество * в тексте : ',k);
close(f);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.000 из 5

Источник