Pascal!

Hej!

För att avsluta programmet skriver jag "sluta", men hur ska jag göra för att "sluta" inte ska sparas i arrayen?

Program listor; 

type namnlisttyp = array[1..20] of string; 

     listtyp =  record
     antal  :   byte;
     namn   :   namnlisttyp;
end;

var lista:listtyp; 
i :integer;
begin 

i:=1;
repeat
  writeln('Ange namn :');
    readln(lista.namn[i]);
      lista.antal:=i;
    inc(i);
until ((i=20) or (lista.namn[i-1]='sluta'));

for i:=1 to lista.antal do
    begin
    writeln(lista.namn[i]);
    end;

    readln;

end.

Tråd flyttad från "Programmering - Övrigt".

/Viktor

Såhär kanske

program listor;

{$APPTYPE CONSOLE}

type namnlisttyp = array[1..20] of string;

     listtyp =  record
     antal  :   byte;
     namn   :   namnlisttyp;
end;

var lista:listtyp;
    i: integer;
    s: string;

begin
  i:=1;
  repeat
    writeln('Ange namn :');
    readln(s);
    if s <> 'sluta' then begin
      lista.namn[i] := s;
      lista.antal:=i;
      inc(i);
    end;
  until ((i=20) or (s='sluta'));

  for i:=1 to lista.antal do begin
    writeln(lista.namn[i]);
  end;

  readln;

end.

tack ! ! :e