Програма должна заносить каждое слово строчки в масив и
потом выводить масив на екран.

Program find;
uses crt;
var i,j,i1:integer;
    mas:array[1..43] of string;
    str,fil:string;
begin
clrscr;
writeln('Enter string ');
readln(fil);
j:=1;
for i:=1 to length(fil) do
     begin
     if fil[i]=' ' then
            begin
            inc(j);
            inc(i);
            end;
     mas[j]:=mas[j]+fil[i];
     end;
for i1:=1 to j do
    begin
    writeln(mas[j]);
    writeln(i1);
    end;
readln;
end.

:flowers: :help:

Цикл по i1, а выводишь [j].

Большое спасибо Malice. :thanks: