{* Запись строки в массив *}

Unit MASSTRINGS;
Interface
Implementation
Begin
 writeln('Программа переводит строку в массив строк,
а после выводит массив строк на экран');
End.

Program MasString;

Uses MasStrings.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  mastype = Array[1..100] Of String;
Var {* Объявление переменных *}
  s                   : String;
  mas                 : mastype;
  j                   : integer;
Procedure massiv(st : String;
Var {* Объявление переменных *}
  m : mastype);
Var {* Объявление переменных *}
  i : integer;
  k : integer;
  w : String;
Begin
  k := 0;
  st := st + ' ';
  w := '';
  For i := 1 To length(st) Do {* Увеличиваем i от 1 до length(st) с шагом 1 *}
    If st[i]' ' Then
      w := w + st[i]
    Else Begin
      k := k + 1;
  m[k] := w;
  w := '';
End;

  End;
  Begin
  writeln('Vvedite stroku:');
  readln(s);
  massiv(s, mas);
For j := 1 To 100 Do {* Цикл для j => [1 .. 100] *}
  If mas[j]'' Then
    writeln(mas[j]);
readln; {* Ждем нажатия Enter *}
End....