помогите плз с задачой (строки на яз.Паскаль)

[Saken]

короче дана такая задача:
дана строка состоящий из пяти имен, если в имени больше шести букв то написать его в обратном порядке...

[alex_fcsm]

uses crt;
var s,s1,sub:string;
    i,j,m,n:integer;
    a:array[1..10] of string;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;


for i:=1 to n do
  if length(a[i])>6 then begin
                          for j:=length(a[i]) downto 1 do
                            write(a[i][j]);
                         writeln;
                         end
                           

end.

[Saken]

можете доделать этот код:

program as1;
uses crt;
var str:string;
i,k:integer;
janastr:string;
begin
clrscr;
readln(str);
k:=length(str);
if k>6 then
for i:=k downto 1 do
janastr:=janastr+copy(str,i,1);
writeln(janastr);
readkey;
end.

[Saken]

большое спс

[alex_fcsm]

Как я понял Вы хотите сделать с функцией readkey

uses crt;
var s,sub,s1:string;
    i,k:integer;
    ch:char;
begin
clrscr;
s:='';sub:='';
repeat
ch:=readkey;
case ch of
#32,#13:begin
    s1:='';
    if length(sub)>6 then for i:=length(sub) downto 1 do
                                s1:=s1+sub[i]
       else s1:=sub;
    s:=s+s1+' ';
    sub:='';
    write(#32);
    end;
else begin
      sub:=sub+ch;
      write(ch);
     end;
end;
until  ch=#13;
clrscr;
writeln(s);
readln;
end.

[Serge_Bliznykov]

alex_fcsm, КРАСАВЧИК! :-)

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

Как я понял Вы хотите сделать с функцией readkey

да Господь с Вами...
Он readkey использовал исключительно для того, чтобы остановить выполнение программы (ну, вместо Readln, которое ставят часто в конце программы, только Readkey это больше похоже на "Press any key" :-)