help!!!плиз...)))

[Siluet]

1.Вычеслите длину самого короткого слова в предложении из трех слов, разделенных пробелами.
2.ВВЕСТИ строку. На печать выдать новую строку, в которой все слова расположены в порядке возрастания длин слов.
3.Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.

[alex_fcsm]

2

uses crt;
var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=2 to n do
 for j:=n downto i do
  if length(a[j])<length(a[j-1]) then
  begin
   sub:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=sub;
  end;
for i:=1 to n do
writeln(a[i]);
end.

Первую можно сделать на основе этой

[Siluet]

спасибо!!!!! каг насчет 3 решили..?

[alex_fcsm]

Я так понимаю имена девочек хранятся в массивах(по 1 массиву на каждый класс).
Берете 1 массив и проверяете есть ли первое имя в остальных массивах и так для всех имен из 1 массива