{* Задача 215 *}

Unit ZADACH215;
Interface
Implementation
Begin
 writeln('Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.');
End.

Program S2_Z7;

Uses zadach215.pas; {* Эту строку можно удалить *}
Type {* Используемые типы *}
  s = String[50];
  ms = Array[1..100] Of s;
Var {* Объявление переменных *}
  A                : ms;
Procedure vvod(m : integer;
Var {* Объявление переменных *}
  x : ms);
Var {* Необходимые переменные *}
  i                : integer;
  Begin
For i := 1 To m Do; {* Переменная i увеличивается с 1 до m *}
Procedure prob(m : integer;
Var {* Необходимые переменные *}
  x : ms);
Var {* Необходимые переменные *}
  i  : integer;
  k  : integer;
  st : s;
  p  : s;
  Begin
For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
st := x[i];
k := 0;
While pos(' ', st)0 Do
  Begin
delete(st, pos(' ', st), 1);
k := k + 1;
End;
str(k, p);
insert(p, st, length(st) + 1);
writeln(i, '-ая строка:', st);
End;

End;
Begin
vvod(7, A);
prob(7, A);
End....