Дружба Народа, #381, можно использовать метки или рекурсию

помогите дорешать задачу.
я смог только обрезать лишние пробелы и убрать последнии буквы в словах.

буду признателен.

program b5;
uses crt;
var str,str2,c: string;
i:integer;
begin
readln(str);
while pos(' ',str)<>0 do
delete (str,pos(' ',str),1);
str2:=str;
delete(str,1,length(str));
for i:=1 to length(str2) do begin
c:= copy(str2,1,pos(' ',str2)-1) ;
delete (c,length(c),1);
insert(' ',str,length(str));
insert(c,str,length(str));
delete(str2,1,pos(' ',str2));
insert(' ',str2,length(str2)+1);
end;
write('Преобразованная строка:');
write(str);
readln
end.

кто может нарисават флаг россии на pascal