Задача
Кролик Клевер продолжает изучать программирование. Он уже изучил строки. Недавно он перешел к изучению подпрограмм, а именно процедур. Но никак не поймет, как их использовать. Недавно Клеверу захотелось написать программу, которая бы из двух предложений печатала самые длинные слова в столбик (если таких слов несколько, то она бы брала первое встретившееся). Он совсем забыл про процедуры и написал очень сложную программу.
Вот она:
var max, n: integer;
s1, s2, wordMax, word: string;
begin
readln(s1);
readln(s2);
max := 0;
s1 := s1 + ' ';
while length(s1) > 0 do begin
n := pos(' ', s1);
word := copy(s1, 1, n);
if length(word) > max then begin
max := length(word);
wordMax := word;
end;
delete(s1, 1, n);
end;
writeln(wordMax);
max := 0;
s2 := s2 + ' ';
while length(s2) > 0 do begin
n := pos(' ', s2);
word := copy(s2, 1, n);
if length(word) > max then begin
max := length(word);
wordMax := word;
end;
delete(s2, 1, n);
end;
writeln(wordMax);
end.
Согласитесь это довольно сложная для восприятия программа.
Помогите кролику Клеверу улучшить программу, выделив одинаковые действия в процедуру.