Доработать прогу на Delphi

[V-Pupkin]

Задание:

Разработать программу ,которая в качестве входного параметра получает путь к двум текстовым файлам.
Оба файла необходимо считывать построчно.Нужно определить можно ли из слов в строке первого файла собрать строку второго.

Я немного уже сделал.. Осталось сделать чтоб строка из масива разбивалась на слова в массиве для последущего сравнения с другой строкой..

исходник (http://top-ir.ru/123.rar)

[Retro]

procedure SizeS_in_S2(S,S2:string; var N:integer);
var tempS:string; //временаая строка для сравнения
i:integer; {счетчик}
BEGIN
tempS:=''; {обнуляем строку}
N:=0; {кол-во попаданий = 0}
for i := 1 to length(S) do
{проходим всю строку, и рассматирваем ее слова(разд. пробелами)}
begin
{если символ не пробел, и при этом у нас не стоят два пробела подряд то
добавляем к врем. строке символ}
if (S[i] <> ' ')or( (S[i] = ' ')and( S[i-1] = ' ') )
then tempS := tempS + S[i]
else begin
{если мы поймали пробле первый, то получили уже слово и работаем с ним}
if pos( tempS, S2) = 0 then break
{слово не найдено во второй подстроке - значит по заданию не подохдоит}
else inc(N);
{в этом случае - увеличиваем счетчик}
tempS:=''; {врем. строку обнуляем до следующего слова}
end;
end;
END;



S - срока которую поделить на слова
S2 строка 2-я, в которой должны быть слова (все) из строки S;
tempS - временная строка, элемент S, который ищется в строке S2;
N- возвращает кол-во слов которые подошли из S в S2;

_http://ifolder.ru/16544631 тута немного исправлено, доделай сам

[V-Pupkin]

спс. вправил в свою прогу все фурычит супер)