Программа Джозефуса

[novicepro]

возможно ли в программе Джозефуса сделать так, чтоб элементы списка вводить вручную, а окончанием списка считалось, ввод последней строчки "END".

Program soldati;

Type link=^node;
node=record
data:word;
next:link;
end;

Var N,M:word;
head:link;

Procedure Init;
Var q,l:link;
i:word;
x:=string;
Begin
Write('Vvedite colichestvo soldat N: ');
Readln(N);
New(head);
l:=head;
Head^.data:=1;
Head^.next:=head;
For i:=2 to n do
begin
New(q);
q^.data:=s;
l^.next:=q;
q^.next:=head;
l:=q;
end;
End;

Procedure Del;
Var i,k:word;
q,p:link;
Begin
Write('Vvedite shag udaleniya elementa M: ');
Readln(M);
k:=0;
i:=1;
q:=head;
While k<n-1 do
begin
While i<m-1 do
begin
inc(i);
q:=q^.next;
end;
i:=0;
inc(k);
p:=q^.next;
q^.next:=q^.next^.next;
writeln(p^.data:4);
dispose(p);
end;
Writeln('Soldat, kotoriyi ostalsya v givyih: ',q^.data);
End;

Begin
Init;
Del;
readln
End.