Подпрограмма

[Кротяка]

Зашифровать текст(не более 255 символов),поменяв порядок следования слов. Использовать подпрограмму.
Вот что у меня получилсь

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

как видим подпрограмма отсутсвует((нужно решить с её помощью....

[GetMax]

Тоже самое, но с подпрограммой

var
  st:string;
Function Revers(S:String):String;
Var
  i,k:Integer;
  S1:String;
  a:array[1..100]of string;
Begin
  k:=1;
  for i:=1 to length(s) do
  if s[i]=' ' then k:=k+1
  else
  a[k]:=a[k]+s[i];
  for i:=k downto 1 do
  s1:=s1+a[i]+' ';
  Revers:=S1
End;
begin
  writeln('First text:',' ');
  readln(st);
  writeln;
  writeln('Revers text:',Revers(St));
  readln
End.

[Niro]

GetMax - ок, но

a:array[1..100] of string[20];

например, или же уменьшить количество элементов массива, либо подключение директив, для увеличения размера стека

[Кротяка]

благодарю)
как сказать спасибо?

[Вадим Мошев]

Кротяка, ниже аватара у каждого пользователя есть значок "весы" .
Нажимайте на них, а дальше разберётесь.