Динамические структуры данных (список), Помогите решить задачу Опции

[Kaygour]

Помогите решить задачу по теме «Динамические структуры данных» в паскале.

Задача звучит так:
Составить программу которая переносит в конец непустого списка L его первый элемент.

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

Код

uses crt;
type
ap=^sp;
sp=record
  f,o:string[20];
   i:string[15];
    ss:ap;
end;
var
fio1,fio2,fio3,fio4:ap;
a,f,b:string;
begin
clrscr;
new(fio1);
write('Введите фамилию: ');
  readln(fio1^.f);
   write('Введите имя: ');
    readln(fio2^.i);
     write('Введите отчество: ');
      readln(fio3^.o);
a:=fio3^.o;
begin
fio3^.o:=fio1^.f;
  fio1^.f:=fio2^.i;
   fio2^.i:=a;
writeln('Поле1: ',fio1^.f);
  writeln('Поле2: ',fio2^.i);
   writeln('Поле3: ',fio3^.o);
  readkey;
end.

[Kaygour]

Вообщето мне нужен один список и несколько элементов, чтобы было что переставлять.
А fio1, fio2, fio3, это данные которые вносятся
fio1-Фамилия;
fio2-Имя;
fio3-Отчество;
Я понял что нужно так делать, хотя могу и ошибаться.

Сообщение отредактировано: Kaygour - 16.12.2005 4:19