Символьный тип данных

[Grenki]

Всем привет, на днях столкнулся с задачей помогите плиз. В текст, длина которого не превышает 80 символов, равномерно вставить между словами символ пробел, чтобы его длина равнялась 80. Заранее Спасибо!

[Streletz]

Пока не в чем помогать. Где Ваши наработки?
Самостоятельные попытки были?

[Grenki]

uses crt;
var s:string;
    i:byte;
begin
writeln('Ââåäèòå ñòðîêó èç ñëîâ,
 ðàçäåëåííûõ ïðîáåëàìè
 íå äëèííåå 80 ñèìâîëîâ');
read(s);
{repeat}
i:=length(s);



while(i>=1)and(length(s)<80) do
 begin
  if s[i]=' ' then insert(' ',s,i);
  i:=i-1;
 end;
{until length(s)=80;}
write(s);
end.

[Streletz]

В принципе, здесь даже лучше использовать string.
Получаете длину строки (количество символов). Количество пробелов 80-длина строки.
Дальше вычисляете номера позиций для каждого пробела и осуществляете вставку.

[Аватар]

Это между символами. Между словами по аналогии, только еще запоминать длину слов

var s,c: String;
    i,k,j,m: Integer;
    a: array[1..80] of Integer;
...
  k:=0;
  for i:=1 to Length(s) do if s[i]<>' ' then begin Inc(k); a[k]:=i; end;
  if k=0 then c:=StringOfChar(' ',80)
  else if k=1 then c:=s[a[1]]+StringOfChar(' ',79)
  else begin
    c:=''; j:=(80-k) div (k-1); m:=(80-k) mod (k-1);
    for i:=1 to k-1 do begin c:=c+s[a[i]]+StringOfChar(' ',j); if i<=m then c:=c+' '; end;
    c:=c+s[a[k]];
  end;

[Serge_Bliznykov]

Grenki, а мне ваш подход в принципе понравился.
Единственно, недочёт, за один проход по циклу вставляется столько пробелов, сколько уже есть пробелов в строке.
я бы вот так подправил ваш код:

uses crt;
var s:string;
    i,k:byte;
begin
  writeln('Введите строку: ');
  read(s);

  while length(s)<80 do begin
    i:=length(s);
    k := i;
    while(i>=1)and(length(s)<80) do
    begin
      if s[i]=' ' then insert(' ',s,i);
      i:=i-1;
    end;
    if length(s)=k then
       for i:=1 to 80-Length(s) do s := s + ' ';
  end;
  write(s);
end.