Найти одинаковые слова в двух строках

[JavaFan]

Привет, как сделать так, чтобы можно было ввести с клавиатуры две строки, а в третью строку вписать одинаковые слова из первых двух строк. Спасибо

Вот минимальный вариант но не могу найти ошибку, или подкиньте свой вариант, пожалуйста.

program six;

function Slovo(s:string;n:integer):string;
    const lim =[' ',',','!'];
    var ss:string;
    k,c,i:integer;
begin
    ss:=''; c:=1; k:=1;
    while k<=length(s) do begin
         while not(s[k] in lim) and (k<=length(s)) do begin
            if c=n then ss:=ss+s[k];
               inc (k); end;
               inc ( c );
       while (s[k] in lim) and (k<=length(s)) do inc (k);
      end;
   Slovo:=ss;
end;

var
  s1, s2, srez : string;
  n1, n2 : integer;
  i, j : integer;

begin

  writeln (' vvedite 1-u stroky' );  readln (s1);
  writeln (' vvedite 2-u stroky' );  readln (s2);
    n1 := 1;
    n2 := 1;
  srez := ' ';
    while slovo (s1, n1) <> '' do inc (n1);
    while slovo (s2, n2) <> '' do inc (n2);
  for i := 1 to n1 do
  for j := 1 to n2 do
     if slovo (s1, i) = slovo (s2, j) then  srez := srez + slovo (s1, i) +' ';
  writeln (' stroka - rezyltat : ' );
  writeln (srez);

end.

[ZX Spectrum-128]

А ошибка-то какая? Что компилятор говорит?

[JavaFan]

Program4.pas(10) : Ошибка времени выполнения: Индекс находился вне границ массива.

[ZX Spectrum-128]

У меня сработало. Какие вы вводили строки?

[JavaFan]

У меня PascalABC.NET
Те же строки ввел
В чем проблема может быть?

[ZX Spectrum-128]

Поковырялся. Ничего не понял, отчего ошибка. Совет - сменить этот недопаскальабц на нормальный компилятор паскаля.