Помогите с лабораторкой.

[Raptor5]

Помогите плиз с лабораторкой. Условие:

19. Пусть дана строка текста, оканчивающая точкой. Напечатайте этот текст в обратном порядке.

Я тут начал, а дальше вообще незнаю че делать.

programm lab;
var
a:string;
begin
writeln("Введите строку");
readln(a);

[Stilet]

Строка это массив символов.
В цикле проходи от Length(<строка>) до 1 и печатай <строка>[i-тая буква]

[ryton]

всмысле в обратном порядке?Последнее слово первое,предпоследнее-второе и т.д.?

[puporev]

Если просто перевернуть весь текст вместе с точкой то:
for i:=length(a) to 1 do
write(a[i]);
Если точку нужно оставить на меcте то:
for i:=length(a)-1 to 1 do
write(a[i]);
write('.');
readln
end.

Если все слова переставить, а точку оставить на месте немного посложнее, но тоже выполнимо.

uses crt;
var s,s1:string; d:array[1..100] of string; i,k:integer;
begin
clrscr;
writeln('First text:');readln(s);
k:=1;
for i:=1 to length(s)-1 do begin
if s[i]=' ' then k:=k+1 else d[k]:=d[k]+s[i];
end;
for i:=k downto 1 do
s1:=s1+d[i]+' ';
s1[length(s1)]:='.';
writeln;
writeln('Revers Text:');
write(s1);
readln
end.

[Xardas]

Сообщение от puporev

Если просто перевернуть весь текст вместе с точкой то:
for i:=length(a) to 1 do
write(a[i]);
Если точку нужно оставить на меcте то:
for i:=length(a)-1 to 1 do
write(a[i]);
write('.');
readln
end.

for i:=length(a) downto 1 do наверное

[puporev]

Так точно, поторопился.

[Raptor5]

Большое всем спасибо за помощь.