Вопрос по Pascal.

Что значит "как их внести в массив"? Объявляете массив строк достаточного размера и "вносите".

n := 0;

ReadLn(S);
Inc(n);
Arr[n] := S;

Эти три строчки должны выполняться в цикле. Как вы его организуете, ваше дело. Или вводите заранее оговоренное число слов, или вводите до ввода, например, пустой строки, или еще как-нить делаете выход из цикла. Если это будет пустая строка, то так получится

repeat
ReadLn(S);
if S <> '' then begin
Inc(n);
Arr[n] := S;
if (n > 1) and (S = Arr[1]) then WriteLn('Слово совпадает с первым введенным! ');
end;
until S = '';

Это если на турбо. Если же на Delphi, то там все еще проще: добавляете слова в TStringList методом Add и проверяете на совпадение с первым.

Вот и все.

точно не помню как все пишеться на паскаль может что неправильно напишу:
programm dfsf;
var b:integer;
тут нужно описать массив который состоит из строчек, стринг. (не знаю как єто в паскале)
begin
b:=1;
while b<n>); \\ а- елемент массива а, с номером b.
b=b+1;
end;
end.
это чтоб заполнить массив, а чтоб посмотреть одинаковые слова лучше использовать вложеные цыклы

вы наверно на программиста учитесь?
впрочем, ответ не важен, вам в любом случае это не нужно. поверьте на слово