Продолжаем мучаться со строками. :( Опции

[DD]

Привет, ALL!

Программа. Дана последовательность содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: перенести последнюю букву в начало слова.

Помогите программу написать.. Что-то со строками у меня вообще проблемы.. По возможности отблагодарю..

[volvo]

Сначала читаем здесь: FAQ: Строки - Теория
Для разбиения строки на слова - FAQ: Строки

FAQ пишется не просто для красоты...

[DD]

FAQ пишется не просто для красоты...

Ну начал.. А как организовать правильно перенос букв?

Код

Program laba2;
Uses Crt;
Type stroka = array[2..30] of string;
Var
  i,j,k:byte;
  s:char;
  a:stroka;b:string[10];
  flag:boolean;
Begin
    clrscr;
    i:=0;
    read(s);
  while s<>'.' do begin
   i:=i+1;
   j:=0;
   a[i]:=b;
   a[i]:='          ';
   
   while (s<>' ') and (s<>'.') do begin
    j:=j+1;
    a[i,j]:=s;
    read(s);
    b[j]:=s
   end;
   
    if s=' ' then
     begin
     read(s);
     b[j]:=s
    end;

[Caries]

Можно с помощью функций copy и delete

[volvo]

А как организовать правильно перенос букв?

Теорию для этого знать нужно. Что вообще из себя представляет строка, и как можно обращаться к отдельным ее элементам и подстрокам. Это уже расписано "от и до", и каждый раз переписывать ЧаВО нет смысла.