Исправить программу

[Smile189]

Как сделать так, что бы user имел доступ к нескольким программам записанным в файле(в файле они записаны без пробелов, например, 123 . и нам нужно запустить 2 программу или любую другую ) Проблема в том , что сейчас программа читает только 1 число

while not Eof(t1) do          
begin
Readln(t1,User[index].login);
Readln(t1,User[index].pass);
Us[index].login:=User[index].login;
Us[index].password:=User[index].pass;
Readln(t1,User[index].typeofuser);
Readln(t1,User[index].whichprogr);
Readln(t1);
Inc(index);
end;
CloseFile(t1);
Sort;

............................





if User[i].typeofuser='user' then
begin
write('запустить лабу: ');
readln(whatcando);
if User[i].whichprogr='1' then  RunLaba1;
if User[i].whichprogr='2' then  RunLaba2;
if User[i].whichprogr='3' then  RunLaba3;
if User[i].whichprogr='4' then  RunLaba4;
if User[i].whichprogr='5' then  RunLaba5;
if User[i].whichprogr='6' then  RunLaba6;
if User[i].whichprogr='7' then  RunLaba7;
Break;
end;
end;
write('1-Выйти из сеанса,2-завершить работу:');
readln(quite);