Выравнивание строки s справа к длине т

function right(s:string;m:integer):string;
var
   i:integer;
begin
  for i:=length(s) to m do s:=' '+s;
  right:=s;
end;
  begin
    writeln(right('выравнивание по правому краю',50));
end.

s:=s+' ';

const m = 20;
var s: string;
    i: integer;
    nospace: boolean;
begin
  writeln('Введите строку длиной < ', m, ' символов:');
  readln(s);
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
  if (length(s) > 0) and (s[length(s)] = ' ') then delete(s, length(s), 1);
  if (length(s) > 0) and (s[1] = ' ') then delete(s, 1, 1);
  if length(s) > m
    then writeln('Строка слишком длинная, форматирование невозможно.')
    else if length(s) = 0
      then writeln('Строка не содержит слов, форматирование невозможно')
      else begin
        nospace := true;
        repeat
          i := length(s);
          while i > 1 do
            if (s[i] = ' ') and (length(s) < m)
              then begin
                insert(' ', s, i);
                nospace := false;
                while s[i] = ' ' do dec(i)
              end
              else dec(i)
        until (length(s) = m) or nospace;
        if nospace
          then writeln('В строке одно слово, форматирование невозможно.')
          else begin
            writeln('Отформатированная строка:');
            writeln(s)
          end
      end;
  readln
end.