Переформировать строку, продлив к длине 60 равномерным добавлением пробелов между словами

uses crt;
var s:string;
    i,k,d:byte;
begin
clrscr;
repeat
writeln('Введите непустую строку не более 50 символов, содержащую пробелы:');
readln(s);
if not(length(s) in [3..50])or not(pos(' ',s) in [2..length(s)-1])
then writeln('строка введена неверно, повторите ввод');
until (length(s) in [3..50])and (pos(' ',s) in [2..length(s)-1]);
d:=60-length(s);{сколько добавить пробелов}
k:=0;{добавлено}
repeat{повторяем в цикле}
for i:=length(s) downto 1 do{проход по строке с конца}
if (s[i]=' ')and(s[i-1]<>' ')then{если начало слова}
 begin
  insert(' ',s,i);{вставим пробел}
  k:=k+1;
  if k=d then break;{если уже длина 60, прекращаем}
 end;
until k=d;{если вставили все, конец}
write(s);
readln
end.

//проверка условия, которое я придумал для ввода
if not(length(s) in [3..50])or not(pos(' ',s) in [2..length(s)-1])//если длина строки меньше 3 или больше 50
//или нет ни одного пробела в середине
then writeln('строка введена неверно, повторите ввод');//не пойдет
until (length(s) in [3..50])and (pos(' ',s) in [2..length(s)-1]);//если все ОК, ввод нормальный