37 lines
582 B
Plaintext
37 lines
582 B
Plaintext
uses Crt;
|
|
|
|
const personen: array[1..10] of string=('Bert','','Ernie','Wilma','','Fred','Barney','','Ger”llheimer','Horst');
|
|
|
|
procedure Zaehle;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Ausgabe;
|
|
var i: byte;
|
|
begin
|
|
WriteLn('<==*==>');
|
|
for i:=1 to 10 do WriteLn(personen[i]);
|
|
ReadKey;
|
|
end;
|
|
|
|
procedure Packe;
|
|
var i,a: integer;
|
|
begin
|
|
for i:=1 to 10 do begin
|
|
if (personen[i]='') then begin
|
|
for a:=i to 10 do begin
|
|
personen[a]:=personen[a+1];
|
|
end;
|
|
end;
|
|
Write(i,': '); Ausgabe;
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
Zaehle;
|
|
Packe;
|
|
Ausgabe;
|
|
end.
|