определить слово мнимальной длины в строке

[Марика]

Пожалуйста,помогите.Знаю,что для кого-то это очень легко, но у меня выходит куча ошибок, здесь я находила подобную лабораторную,но в консольном приложении.

[Sazary]

здесь я находил подобную лабораторную,но в консольном приложении.

А вам в каком надо? И на каком языке?

но у меня выходит куча ошибок

Показывайте - посмотрим.

[Марика]

здравствуйте, мне программа нужна в delphi или lazarus, а язык паскаль. Я пыталась задать строку как массив,а препод говорит, что ему так интересно, не принял.
Сейчас пробую по другому-не выходит
procedure TForm1.Button1Click(Sender: TObject);
var sl1,sl2, s:string;
i,j,n,k1,k2: integer;
begin
s: edit1.Text;
n:=length(s);
i:=1;
repeat
sl1:'';j:=i;
while(s[j]<>' ') and (j<n) do begin
s1 :=s1+s[i];
i:=i+1;
end;
k1:=length(sl1);
j:=k1+2;
while(s[j]<>' ')and(j<n) do begin
k2:=length(sl2);
if k1>k2 then delete(s,1,k1);
else delete(s,k1+2,k2);
n: length(s);
until i<n ;
edit2.text:='минимальное слово'+'s';
end;
end;

[ViNcHeStEr]

С Паскаля на Делфи перевести нетрудно. А строка - это и есть буквенный массив. Пример: stroka[4]:='d';

[Stilet]

Я пыталась

Код в студию )

[Марика]

я же не програмист,я студентка экономического факультета, я в вашей терминологии то не разбираюсь, а программу я сама никогда не смогу написать.