Lazarus...

[Сristina]

Добрый вечер всем программистам!!!=)

Подскажите программку для Lazarus...Создать приложение, в котором совпадает первая и последняя цифра.

Вот код, его нужно переделать для Lazarus, прошу помощи, пожалуйста:

Var
  f:Text;
  St,s:String;
  i,kolSlov:Byte;
Begin
   Assign(F,'Ishodnik.txt');
   Reset(F);
   While Not EOF(F) do
   Begin
      Readln(F,St);
      s:='';
  KolSlov:=0;
  For i:=1 to Length(St) do
  Begin
    If (St[i] <> ' ') then s:=s+St[i];
    If (St[i] = ' ') or (i = Length(St)) then
    Begin
      If (s[1] = s[Length(s)]) then Inc(KolSlov);
      s:=''
    End;
  End;
  If KolSlov > 0 then
  Writeln('Kol slov = ',Kolslov)
  Else
  Writeln('Not Found');
  Readln
   End;
  Close(F)
End.

только это для слов надо ещё перевести в цифры через strtoint(a) и т.д.

Очень на вас надеюсь...Заранее спасибо.

[Serge_Bliznykov]

1) Тема не отражает суть решаемой задачи!

2) и Вы даже условия задачи неверно процитировали/услышали/поняли/записали!

Судя по коду программы:
дан текстовый файл. Слова разделены пробелами.
Подсчитать количество слов, у которых совпадает первая и последняя буква.