строки!

1. разбить строку на отельные слова.
2. в цикле перебрать слова, выясняя, которое из содержащих подстроку"шатер", является самым длинным.

Примечание: оба шага можно делать в одном цикле. Такое решение будет более эффективным как по объему вычислений, так и по объему памяти.

да, действительно, что Вы тут как побирушка какая, код выпрашиваете? давайте уже сами думать начинайте.

я б с огромным удовольствием если б не было запары на атестационной неделе!
я не знаю как найти все слова с корнем шатер и вынести в другую строку, а среди них найти самое длинное я смогу! спасибо)

[highlight=pascal]
function DoSmth(AStr: string): string;
var
a: array of string;
begin
repeat
DelPos := Pos(AStr, ' ');
if DelPos > 0 then
begin
if Pos('шатер', LowerCase(copy(AStr, 1, DelPos))) > 0 then
begin
SetLength(WordArray, length(WordArray) + 1);
WordArray[length(WordArray) - 1] := copy(AStr, 1, DelPos);
end;
if length(WordArray) > 1 then
begin
if length(WordArray[length(WordArray) - 1] > length(WordArray[length(WordArray) - 2] then
Result := WordArray[length(WordArray) - 2];
end
else
Result := WordArray[0];
end;
until DelPos = 0;
end;
[/highlight]
естественно код непроверенный и сделан навскидку.
и вот вопрос - Вы когда на парах сидели - чем занимались то?

наш препод уезжал в командировку и нам определенный кусок материала дали на самостоятельное изучение ..ну и естественно по этим темам лабы!
Спасибо что выручаете!!!!