Дан текст, состоящий из N строк. Слова разделены несколькими пробелами. Требуется удалить лишние пробелы, оставив только по одному между словами — Pascal(Паскаль)

var
s:array[1..100]of string;
n,i:integer;
begin
writeln('vvedite kolichestvo strok');
readln(n);
for i:=1 to n do
begin
writeln('vvedite ',i,' stroku');
readln(s[i]);
while pos('  ',s[i])>0 do delete(s[i],pos('  ',s[i]),1);
end;
writeln('novyj text');
for i:=1 to n do
writeln(s[i]);
readln;
end.