用read语句输入五个长度不同的字符串，然后按长度由长到短输出这五个字符串。
这道题该怎么写??

谢谢了!

五个在一行上？

var a:array[0..5] of record
s:string;
len:longint;
end;
i,j,n:longint;
begin
n:=5;
for i:=1 to 5 do
with a[i] do
begin
readln(s);
len:=length(s);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].len<a[j].len then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
for i:=1 to n do
writeln(a[i].s);
end.

{
Copyright (c) 2014 by @猎火电脑工作室
}
var st:array [1..5] of string;
　　s:string;
begin
　readln(st[1]);
　readln(st[2]);
　readln(st[3]);
　readln(st[4]);
　readln(st[5]);
　for i:=1 to 4 do
　　for j:=i+1 to 5 do
　　　if length(st[i])<length(st[j]) then
　　　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　　s:=st[i];
　　　　　　　　　　　　　　　　　st[i]:=st[j];
　　　　　　　　　　　　　　　　　st[j]:=s;
　　　　　　　　　　　　　　　　end;
　writeln(st[1]);
　writeln(st[2]);
　writeln(st[3]);
　writeln(st[4]);
　writeln(st[5]);
end.

@Fallen_Breath
明天就考试了，谢谢告诉我这些答案！
谢谢啊！

任意输n个字母的单词，要求按其顺序的逆顺序打印。
输入一个长度大于6的字符串，要求从左边起第四个字符后边插入123，其他字符不变。
编一个程序，将一堆数组各元素的值移到后一个元素，最后一个元素移到第一个元素中。
ABCDEFG共7个人去旅游，每三人合照一张照片，但B与F两人不愿同在一张照片上出现，问他们共照了多少张照片？每张照片上都是谁？如：ABC表示一张，BCD表示一张等。

@Fallen_Breath

8.1
var s:string;
i:longint;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
end.

8.2
var s:string;
begin
readln(s);
insert('123',s,5);
writeln(s);
end.

8.3
var a:array[1..1000] of longint;
i,n,t:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
t:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=t;
for i:=1 to n do write(a[i],' ');
writeln;
end.

8.3改
8.3
var a:array[1..1000] of longint;
i,n,t:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
t:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=t;
for i:=1 to n do writeln(a[i]);
end.

8.4题目怪怪的
var s:array[0..100] of string;
i,j,k:char;
ii,ans:longint;
begin
ans:=0;
for i:='A' to 'F' do
for j:='A' to 'F' do
if i<>j then
for k:='A' to 'F' do
if (i<>k) and (j<>k) then
begin
s[0]:=i+j+k;
if (pos('B',s[0])<>0) and (pos('F',s[0])<>0) then continue;
inc(ans);
s[ans]:=s[0];
end;
writeln(ans);
for ii:=1 to ans do writeln(s[ii]);
end.

var a:array [1..100]of integer;
b,c,d:integer;
begin
for b:=1 to 100 do
readln(a[b]);
for c:=2 to 100-2 do
for d:=3 to 100-1 do
begin
b:=0;
b:=a[c];
a[c]:=a[d];
a[d]:=b;
end;
b:=0;
b:=a[100];
a[100]:=a[1];
a[1]:=a[100];
b:=0;
for b:=1 to 100 do
write(a[b]:8);
readln
end.
可以吗？第三题

8.3
var
i,n:longint;
a:array[1..100]of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
write(a[n],' ');
for i:=1 to n-1 do
write(a[i],' ');
end.
直接输不就得了。