Something

unit procedury;

interface

procedure DodajKontakt;
procedure Przegladaj;

type
  kontakt = record
    imie, nazwisko, gadu, tlen, icq, spik: string;
  end;

var
  ludzie  : array[1..10] of kontakt;
  q       : string;
  i       : integer;


implementation

procedure DodajKontakt;
var
  nr: integer;
begin
  for nr := 1 to 10 do
  begin
    Write('Kontakt numer ');
    Write(nr);
    Writeln(':');
    Readln(q);
    if (q='q') then
    begin
      i := nr;
      break;
    end;
    Write('Imie: ');
    Readln(ludzie[nr].imie);
    Write('Nazwisko: ');
    Readln(ludzie[nr].nazwisko);
    Write('Gadu Gadu: ');
    Readln(ludzie[nr].gadu);
    Write('Tlen: ');
    Readln(ludzie[nr].tlen);
    Write('ICQ: ');
    Readln(ludzie[nr].icq);
    Write('Spik: ');
    Readln(ludzie[nr].spik);
  end;
end;

procedure Przegladaj;
var
  nr: integer;
begin
  for nr := 1 to i - 1 do
  begin
    Write('Kontakt numer ');
    Write(nr);
    Writeln(':');
    Writeln('');
    Write('Imie: ');
    Writeln(ludzie[nr].imie);
    Write('Nazwisko: ');
    Writeln(ludzie[nr].nazwisko);
    Write('Gadu Gadu: ');
    Writeln(ludzie[nr].gadu);
    Write('Tlen: ');
    Writeln(ludzie[nr].tlen);
    Write('ICQ: ');
    Writeln(ludzie[nr].icq);
    Write('Spik: ');
    Writeln(ludzie[nr].spik);
  end;
  Readln;
end;

end.