Работа с текстовой информацией.

[Кутяшка]

Общие указания: Выход из программы должен осуществляться по нажатию клавиши ЕSС.
Пользователь задает длину вводимой строки. Слова в строке могут разделяться произвольным количеством пробелов. При выводе на экран в строке может располагаться только одно слово. Слова с нечетными номерами выравниваются по левой границе экрана, с нечетными – по правой.
Помогите.

[ZX Spectrum-128]

А в чем сложность? В разбиении строки на слова? Или в выводе слов?

[Кутяшка]

Во всем сложность, если честно.

[ZX Spectrum-128]

Пользователь задает длину вводимой строки.

И даже в этом?

Что-то типа такого?

[Кутяшка]

Что-то типа такого)))

[Кутяшка]

Длину вводимой строки можно использовать вот эту программку, да???
var
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.

[ZX Spectrum-128]

Преподаватель скорее имеет ввиду, что стандартной процедурой readln() нельзя пользоваться. Это с ним решайте.
Остальной текст сейчас сброшу.

Это:

Выход из программы должен осуществляться по нажатию клавиши ЕSС.
Пользователь задает длину вводимой строки.

НЕ реализовано.

uses
  crt;
const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;
   i,n:integer;

function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;

   GetWords := n;
end;
begin
  clrscr;
  writeln('Введите слово:');
  readln(text);
  n:=getwords(text,words);
  for i:=1 to n do
    if odd(i) then
      writeln(words[i])
    else
      writeln(words[i]:80);
  readln;

end.

[Кутяшка]

Спасибо))))

[ZX Spectrum-128]

Слова с нечетными номерами выравниваются по левой границе экрана, с нечетными – по правой.

С этим тоже сами разбирайтесь.