списки!

[soft_worm]

Доброго времени суток! Ребята, прошу войти в положение и помочь. Работал в чистом паскале последний раз очень очень давно, сейчас только на Си и Делфи пишу, а времени вспоминать и разбираться с ним СОВСЕМ нет. А в универе ни с того, ни с сего (на 4 курсе) решили загрузить нас списками. В связи с этим прошу помощии!!
..
Дан однонаправленный список слов, среди которых есть пустые. Поменять первое и последнее НЕПУСТЫЕ слова.

[Vanta11a]

Напишите код на делфи, раз уж сказали, что умеете. Я переведу его в паскалевский.

А не напишете - фриланс где-то ниже, Вам задачу за денежку решат легко.

[Stilet]

Думаю что ядро может выглядеть так:

Дан однонаправленный список слов, среди которых есть пустые.

type
 r=record
  s:string; next:pointer;
 end;
var nr,lr,pr,head:^r; s:string;
begin
while true do begin
 new(pr);
 if head=nil then head:=pr;
 if lr<>nil then lr^.next:=pr;  lr:=pr;
 readln(pr^.s);
end;
...

Поменять первое и последнее НЕПУСТЫЕ слова.

...
lr:=head;pr:=head; nr:=nil;
while pr<>nil do begin
 if (nr=nil)and(pr^.s<>'') then nr:=pr;
 if (pr^.s<>'') then lr:=pr;
 pr:=pr^.next;
end;
if nr<>nil then begin
 s:=nr^.s; nr^s:=lr^.s; lr^.s:=s;
end;