Форум для программистов, программируем с умом

Очереди -

Код

type
PItem = ^TItem;
TItem = packed record
Data :Integer;
Next :PItem;
end;
var pFirst,p:PItem; i:Integer;
...
//создаем очередь
Randomize;
pFirst := nil;
for i:=1 to 20 do begin
p := pFirst;
new(pFirst);
pFirst^.Next := p;
pFirst^.Data := Random(101)-50;
end;

//удаляем последний
if pFirst=nil then begin
//очередь пуста
end else begin
p := pFirst;
while (p^.Next<>nil)and(p^.Next^.Next<>nil) do p := p^.Next;
if p^.Next=nil then begin
//в очереди всего 1 элемент
dispose(pFirst);
pFirst := nil; //теперь очерель пуста
end else begin
dispose(p^.Next);
p^.Next := nil;
end;
end;

Вроде бы правильно.

Здравствуйте! Я начинаю учится программированию и столкнулся с проблемой. Помогите мне сегодня решить задачу в паскале!!! Необходим текст программы и блок схема. Дана строка состоящая из русских слов, разделенных пробелами(одним или несколькими) Определить количество слов, которые содержат, ровно три буквы "А".