Module: Subrutinas: procedimientos y funciones - 1


Problem

7/12

Acortar el código del programa

Problem

Rabbit Clover continúa aprendiendo programación. Ya ha estudiado las líneas. Recientemente, pasó al estudio de las subrutinas, a saber, los procedimientos. Pero él no entiende cómo usarlos. Recientemente, Clover quería escribir un programa que imprimiera las palabras más largas de dos oraciones en una columna (si hay varias de esas palabras, tomaría la primera que encontrara). Se olvidó por completo de los procedimientos y escribió un programa muy complejo.
Aqui esta ella: var max, n: entero; s1, s2, maxpalabra, palabra:cadena; comenzar     readln(s1);     readln(s2);     máx := 0;     s1 := s1 + ' ';     mientras longitud(s1) > 0 para comenzar         n := pos(' ', s1);         palabra := copiar(s1, 1, n);         si longitud (palabra) > Max entonces comienza             max := longitud(palabra);             palabraMax := palabra;         fin;         eliminar (s1, 1, n);     fin;     writeln(palabraMax);          máx := 0;     s2 := s2 + ' ';     mientras longitud(s2) > 0 para comenzar         n := pos(' ', s2);         palabra := copiar(s2, 1, n);         si longitud (palabra) > Max entonces comienza             max := longitud(palabra);             palabraMax := palabra;         fin;         eliminar (s2, 1, n);     fin;     writeln(palabraMax); fin. De acuerdo, este es un programa bastante difícil de entender. 
Ayuda a Clover the Rabbit a mejorar el programa seleccionando las mismas acciones en el procedimiento.