Строковый тип данных в Паскале

[vmilyoshin]

Помогите с кодом в решении задачи:
Пусть строка состоит из слов, разделенных запятыми, например слово1, слово2, слово3, слово4. Найти последнее вхождение заданной подстроки в строку.

[Stilet]

Запрсто:
Пусть s - строка, ss - подстрокаж

for i:=length(s)-Length(ss) downto 1 do
 if copy(s,i,length(ss))=ss then нашли, i - позиция справа

[Grag]

А можно еще и так:

i:=LastDelimiter(ss, s);

Здесь также ss - подстрока, s - исходная строка, i - индекс последнего вхождения подстроки ss в строку s.
Виноват, просмотрел, что нужно в Паскале, а написал для Дельфей, во я балбес!!!

[vmilyoshin]

Сообщение от Stilet

Запрсто:
Пусть s - строка, ss - подстрокаж

for i:=length(s)-Length(ss) downto 1 do
 if copy(s,i,length(ss))=ss then нашли, i - позиция справа

А можно, если не трудно, весь код программы?

[vmilyoshin]

Кто соображает, где ошибки в данном коде?

program strok;

uses crt;

var f : text;
s, ss, i : string;

BEGIN
clrscr;
assign(f,'D:\KursPascal\primer.txt' );
reset(f);
for i:=length(s)-length(ss) downto 1 do
if copy(s,i,length(ss))=ss then
readln(f, i);
writeln(i);

close(f);
readln;
END.

[Google2010]

i:integer;

где ты считываешь s и ss?

readln(f,i);

-лишнее)

[vmilyoshin]

Я пытаюсь считать информацию из текстового файла primer.txt
Программа скомпилировалась, но выводится пустой экран. Значит ещё что то упустил. Помогите.

program strok;

uses crt;

var f : text;
s, ss : string;
i : integer;

BEGIN
clrscr;
assign(f,'D:\KursPascal\primer.txt' );
reset(f);
for i:=length(s)-length(ss) downto 1 do
if copy(s,i,length(ss))=ss then
writeln(i);

close(f);
readln;
END.