Даны четыре слова, напечатать слово, имеющее максимальную длину!
Это Паскаль,напишите программу пожалуйста,по возможности блок схему

Program naconecto;vara,b,c,d:string;BEGINwriteln('a=');writeln('b=');writeln('c=');writeln('d=');readln(a);readln(b);readln(c);readln(d);if (length(a)>length(b)) and (length(a)>length(c)) and (length(a)>length(d)) then  begin    writeln('a uMeeT Makc gJluHy=',length(a));  endelse if (length(b)>length(c)) and (length(a)>length(d)) then  begin    writeln('b uMeeT Makc gJluHy=',length(b));  endelse if (length(c)>length(d)) then  begin    writeln('c uMeeT Makc gJluHy=',length(c));  endelse  begin    writeln('d uMeeT makc gJluHy=',length(d));  end;readln;END.