задача на файлы

[Сristina]

Добрый вечер программисты!)) Нужна помощь)

Подскажите пожалуйста: Дан текст, найти кол-во слов, у которых первый и последний символы совпадают? Нужно записать используя операторы Assign, Reset, Read, Close, EOF и т.д.
Очень на вас надеюсь.


Подскажите где ошибка и переделайте плиз)

var
   c,s,p:char;
   k:shortint;
   z:boolean;

begin
   assign(output,'output.txt');
   rewrite(output);
   assign(input,'input.txt');
   reset(input);
   while not EOF do
   begin
      read(c);
      if z=false and (c<>' ') then
      begin
         s:=c;
         z:=true;
      end;
      if z=true and (c=' ') then
      begin
         z:=false;
         if p=s then inc(k);
      end;
      p:=c;
   end;
   if p=s then inc(k);
   write(k);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

Дан текст, найти кол-во слов, у которых первый и последний символы совпадают?

Я вам уже писал данный алгоритм. Если у вас он не сохранился ищите на форуме. А с файлом работать надо так

Var
  f:Text;
  St:String;
Begin
   Assign(F,'Ishodnik.txt');
   Reset(F);
   While Not EOF(F) do
   Begin
      Readln(F,St);
      // Здесь пишите код для подсчета количества слов
   End;
  Close(F)
End.

Ishodnik.txt - файл, в котором находится текст

[Сristina]

Да, я помню, спасибо) мне нужен был алгоритм файла)