unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    RadioButton1: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit3: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  inf=record
      cislo:string;
      meno:string;
      end;

var
  Form1: TForm1;
  funk,n:integer;
  pole:array[1..100]of inf;

implementation

{$R *.DFM}

procedure TForm1.Button3Click(Sender: TObject);
begin
halt
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  funk:=1;
  radiobutton1.Checked:=true;
  radiobutton3.Checked:=false;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
    funk:=2;
    radiobutton3.Checked:=true;
    radiobutton1.Checked:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    a:string;
begin
  case funk of
   1:begin
      i:=1;
      a:=edit1.text;
      while (pole[i].cislo<>a) and (i<=n) do i:=i+1;
       if i=n+1 then showmessage('zaznam nebol najdeny') else
       edit2.text:=pole[i].meno;
     end;
   2:begin
      i:=1;
      a:=edit2.text;
      while (pole[i].meno<>a) and (i<=n) do i:=i+1;
       if i=n+1 then showmessage('zaznam nebol najdeny') else
       edit1.text:=pole[i].cislo;
     end;
     end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
 memo1.clear;
 for i:=1 to n do
  memo1.Lines.Append(pole[i].meno+' '+pole[i].cislo);
end;

procedure TForm1.FormCreate(Sender: TObject);
var f:textfile;
    b:string;
begin
  assignfile(f,'zoznam.txt');
  reset(f);
  n:=0;
  while not(eof(f)) do
   begin
      n:=n+1;
      readln(f,b);
      readln(f,pole[n].meno);
      readln(f,pole[n].cislo);
   end;
  closefile(f);
  edit3.text:=inttostr(n);
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    i:integer;
begin
if (edit1.text<>'') and (edit2.text<>'') then
begin
n:=n+1;
pole[n].meno:=edit1.text;
pole[n].cislo:=edit2.text;
assignfile(f,'zoznam.txt');
rewrite(f);
for i:=1 to n do
  begin
    writeln(f,' ');
    writeln(f,pole[i].meno);
    writeln(f,pole[i].cislo);
  end;
  closefile(f);
end
else showmessage('znovu zadajte udaj');

end;

end.