Паскаль, строки, помогите

[zaraza21]

помогите решить задачу: поменять местами 1 и 2 предложение в тексте, задучу надо зделать сроковым массивом

строковым типом я зделал, а массивом немогу(

Var x:array [1..100] of char;
y:set of Char;
p,temp:string[255];
A:array [1..100] of integer;
e,i,j,c,k,q,temp2:Integer;

Begin
repeat
writeLn('1-stroka 2-massiv');
readln(q);
writeln;

case q of
1:begin
Writeln('vvedite predlogenie:');
Readln(p);
c:=Length(p);
j:=1;
for i:=1 to c do
begin
if (p[i]='.') then
begin
If (j >= 3) then break;
a[j]:=i;
j:=j+1;
end
end;

temp:=copy(p,1,a[1]);
delete(p,1,a[1]+1);
c:=length(p);
insert(' '+temp,p,a[2]-a[1]);

WriteLn(' ',p);
ReadLn;
End;

[Stilet]

Вот на скорую руку:

uses crt;
var a,b,s:string;
    x,z:array[1..255] of char;
 k,i:integer;
begin    clrscr;

{Меняем строками}
 s:='12313 123 23 123. gdsfjhhjhhg dsfgh gjhd f. ';
 k:=pos('.',s);
 a:=copy(s,1,k);
 delete(s,1,k);
 b:=s;
 s:=b+a;
 writeln(s);
{Меняем массивами}
 s:='12313 123 23 123. gdsfjhhjhhg dsfgh gjhd f. ';
 k:=pos('.',s);
 move(s,z,k);
 delete(s,1,k);
 move(s[1],x,length(s));
 writeln(x,z);
end.

[puporev]

Вот короткое решение с использованием массива строк. Это если поменять только 1 и 2 предложения.

program per_predl;
uses crt;
var s:array[1..3] of string;
    i:integer;
    x:string;
begin
  clrscr;
  s[1]:='Шел снег.'; s[2]:='Была зима.';s[3]:='Дети катались на санках.';
  for i:=1 to 3 do
     begin
      write(s[i],' ');
     end;
  readln;
  x:=s[1];s[1]:=s[2];s[2]:=x;
  for i:=1 to 3 do
     begin
      write(s[i],' ');
     end;
  readln;
  end.

[Stilet]

э-э-э стоп. А строка что уже разбита на элементы?

[puporev]

Программа откомпилирова и работает. А строки на элементы разбивать не нужно, т.к. каждая строка и есть элемент массива. Мы просто меняем местами элементы с индексами 1 и 2.