program griclaba6;
uses crt;
var
a:string[100];
i,x,l:integer;
begin
clrscr;
writeln('Введите исходную строку');
read(a);
writeln('Введите желаемую длину');
read(x);
l:=length(a);
while l <> x do begin
for i:= 1 to l do begin
if a[i]= ' ' then a[i]:=a[i]+' '; {на этой строке выкидывает ошибку type mismatch}
end;
end;
readkey;
end.

a[i]=a[i]+' '

a[i]:=a[i]+' '

if a[i]= ' '

a[i]:=a[i]+' '

program griclaba6;
uses crt;
var
in,out:string[255];
len,wantedlen,wordscount,wordswritten,spacestoadd,wordslen,i,t:integer;
wflag:boolean;
begin
clrscr;
writeln('Введите исходную строку');
read(in);
writeln('Введите желаемую длину');
read(wantedlen);

len:=length(in); // Длинна входной строки

// Подсчитываем количество слов в предложении
wordscount:=0; // Количество слов в предложении
wordslen:=0; // Реальная длинна слов предложения (длинна предложения за вычетом количества пробелов)
wflag:=false; // Флаг, необходимый для подсчета количества слов
for i:=1 to len do
begin
if (in[i]=' ') then
begin
if (wflag) then
begin
// Найдено слово
wordscount:=wordscount+1;
wflag:=false;
end
end
else
begin
// Найдены признаки слова (не пробелы)
wordslen++;
wflag:=true;
end
end
// Не забыть посчитать последнее слово
if (wflag) then wordscount:=wordscount+1;

wantedlen:=wantedlen-wordslen; // реальное количество пробелов, в предложении, которое мы должны сгенерировать

if (wantedlen<0) then
begin
// Длинна выходного предложения меньше длинны слов - то есть потеря значащих символов
writeln('Impossible to stretch down sentence, need to add %d < 0 spaces\n',wantedlen);
getch();
return -1;
end
if (wantedlen<wordscount-1) then
begin
// Если так расставлять пробелы, то некоторые слова просто сольются - им не хватит места для пробела
writeln('This will merge all words because number of spaces is lower than needed (%d < %d)\n',wantedlen,wordscount-1);
getch();
return -1;
end
if (wordscount=0) then
begin
// В предложении нет слов
writeln('Empty sentence\n');
getch();
return -1;
end
if (wordscount=1) then
begin
// В предложении только одно слово - нет нужды расставлять пробелы, правда, удалить можно, но это я делать не стал, так как это обычная функция Trim
writeln('There is no need to stretch sentence with one word\n');
getch();
return 0;
end
// Расставляем пробелы
spacestoadd:=wantedlen/(wordscount-1); // количество пробелов после каждого слова, кроме предпоследнего
wordswritten:=0; // обработано слов
wflag:=false;
for i:=1 to len do
begin
if (in[i]=' ') then
begin
if (wflag) then
begin
// Слово закончилось, записать пробелы
wordswritten:=wordswritten+1;
if (wordswritten=wordscount-1)
begin
// Пишем последнее слово - перед ним нужно добавить не меньше пробелов чем перед всеми остальными
for t:=1 to wantedlen-spacestoadd*(wordswritten-1) do out:=out+' ';
end;
else
begin
// Пишем не последнее слово
for t:=1 to spacestoadd do out:=out+' ';
end;
wflag:=false;
end
end
else
begin
// Слово идет
out:=out+in[i];
wflag:=true;
end
end
// Вывод предложения
writeln(out); // это лучше выводить в кавычках что бы хорошо видно было что в конце никаких пробелов нет
readkey;
end.

return -1;