Module: Routinen: Prozeduren und Funktionen - 1

Problem

Clevers Kaninchen erforscht weiterhin die Programmierung. Er hat die Zeilen schon studiert. Er war kürzlich in die Unterprogramme umgezogen, nämlich die Verfahren. Aber es gibt keinen Weg, sie zu benutzen. Vor kurzem, Clever wollte ein Programm schreiben, das von den beiden Vorschlägen die längsten Worte in einen Stock drucken würde (wenn es ein paar Worte gäbe, hätte es die erste Sitzung getroffen). Er vergaß das Verfahren und schrieb ein sehr kompliziertes Programm.
Da ist sie.

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.

Sie werden sich auf dieses ziemlich komplizierte Programm einigen.
Helfen Sie dem Clever Kaninchen verbessern Sie das Programm, indem Sie die gleichen Vorkehrungen.