не могу понять в чём причина

[salwator]

Привет уважаемые программисты
Помогите понять в чём причина и исправить эту причину
Написал программу в Turbo Pascal список очереди пациентов в поликлинику к специалисту
Список пациентов я считываю с текстового файла,с этим у меня проблем нет
Проблема в том,что когда я добавляю нового пациента с клавиатуры и добавляю в общий список,у меня
в общем списке пациент,которого я добавил,выводится в этом списке,но выводится ни как все пациенты,а вот так:
Скачков1577489121554322111125489621 405.07.1108.00
т.е выводит всё слитно,а должно Скачков 15774 89121554322 1111254896214 05.07.11 08.00
И ещё помогите придумать условие сортировки:у меня сортируется список по дате,не знаю как
написать: если есть две одинаковые даты то сделать сортировку по времени приёма этих дат

type uk=^elem;
elem=record
FIO,Nom_kart,Telef,INN,Data,Time:st ring;
prev:uk;
next:uk;
end;
var head:uk;
a,i:integer;
f:text;
key:char;

procedure init;
begin
head:=nil;
end;

procedure add1(var head,cur:uk);
begin
head:=cur;
head^.next:=nil;
end;

procedure add_between(var prev,cur:uk);
begin
cur^.next:=prev^.next;
prev^.next:=cur;
end;

procedure pered(var head,cur:uk);
begin
cur^.next:=head;
head:=cur;
end;
{Добавление в список и сортирвка}
procedure sortirovka(var head:uk;FIO,Nom_kart,Telef,INN,Data ,Time:string);
var cur,p:uk;
begin
new(cur);
cur^.FIO:=FIO;
cur^.Nom_kart:=Nom_kart;
cur^.Telef:=Telef;
cur^.INN:=INN;
cur^.Data:=Data;
cur^.Time:=Time;
if head=nil then add1(head,cur)
else
if (cur^.Data<head^.Data) then pered(head,cur)
else begin
p:=head;
while (p^.next^.Data<cur^.Data) and (p^.next<>nil) do
p:=p^.next;
add_between(p,cur);
end;
end;
{Добавление новых данных вручную}
procedure dobav;
var FIO,Nom_kart,Telef,INN,Data,Time:st ring;
begin
textcolor(14);
writeln('Введите фамилию:');
readln(FIO);
writeln('Введите номер карточки:');
readln(Nom_kart);
writeln('Введите телефон:');
readln(Telef);
writeln('Введите ИНН:');
readln(INN);
writeln('Введите дату:');
readln(Data);
writeln('Введите время*:');
readln(Time);
sortirovka(head,FIO,Nom_kart,Telef, INN,Data,Time);
writeln;
textcolor(14);
writeln(' *************************');
writeln(' пациент добавен');
writeln(' *************************');
readln;
end;
{Заполнение из файла}
procedure zapol(var f:text);
var FIO,Nom_kart,Telef,INN,Data,Time,a: string;
p:uk;
begin
assign(f,'kurs.txt');
reset(f);
while not eof(f) do
begin
readln(f,a);
FIO:=copy(a,1,18);
Nom_kart:=copy(a,19,9);
Telef:=copy(a,29,14);
INN:=copy(a,42,15);
Data:=copy(a,57,12);
Time:=copy(a,69,5);
p:=p^.next;
sortirovka(head,FIO,Nom_kart,Telef, INN,Data,Time);
end;
close(f);
textcolor(11);
writeln(' **********************');
writeln(' чтение файла завершенно');
writeln(' **********************');
readln;
end;
{Вывод}
procedure vivod(head:uk);
var p:uk;
begin
p:=head;
while p<>nil do
begin
textcolor(10);
write(p^.FIO:10);
write(p^.Nom_kart:5);
write(p^.Telef:5);
write(p^.INN:5);
write(p^.Data:5);
write(p^.Time:5);
p:=p^.next;
writeln;
end;
readln;
end;

[Vanta11a]

write(p^.FIO:10);

и похожее заменить на

write(p^.FIO:10,' ');

Сортировка по времени - просто добавь проверку на равенство/неравенство дат, если не равны - отсортировать по дате, если равны - посмотреть время и отсортировать по нему.

[salwator]

не могу понять как условие сортировки написать

[Vanta11a]

если (даты не равны) то [обычная сорторовка по дате] иначе [сортировка по времени]

[salwator]

я написал такое условие,я его выделил,оно у меня работает только для первого случая,в остальных случаях не работает
procedure sortirovka(var head:uk;FIO,Nom_kart,Telef,INN,Data ,Time:string);
var cur,p:uk;
begin
new(cur);
cur^.FIO:=FIO;
cur^.Nom_kart:=Nom_kart;
cur^.Telef:=Telef;
cur^.INN:=INN;
cur^.Data:=Data;
cur^.Time:=Time;
if head=nil then add1(head,cur)
else
if (cur^.Data<head^.Data) then pered(head,cur)


else
if (Cur^.Data=Head^.Data) and (Cur^.Time<Head^.Time) then pered(head,cur)


else begin
p:=head;
while (p^.next^.Data<cur^.Data) and (p^.next<>nil) do
p:=p^.next;
add_between(p,cur);
end;
end;