program teated;
uses crt, kuj;
var
 c: char;
 fs, fv: text;
 nimi: string;
 aine: array[1..4] of string;
 ainenr: integer;

procedure tutvustus;
begin
 clrscr;
 servad;
 gotoxy(10, 10); write('Programm abistab tunnistuste kirjutamisel');
 readkey;
 clrscr;
end;


begin
 tutvustus;
 servad;
 kaota_kursor;
 aine[1]:='Kettaheide';
 aine[2]:='Odavise';
 aine[3]:='Jooks';
 aine[4]:='Maadlus';
 for ainenr:=1 to 4 do
 begin
  gotoxy(25, ainenr+12);
  write(aine[ainenr]);
 end;

 {gotoxy(25, 13); write('Kettaheide');
 gotoxy(25, 14); write('Odavise');
 gotoxy(25, 15); write('Jooks');
 gotoxy(25, 16); write('Maadlus');}
 assign(fs, 'nimekiri.txt');
 assign(fv, 'teated.txt');
 reset(fs);
 rewrite(fv);
 while not eof(fs) do
 begin
   for ainenr:=1 to 4 do
   begin gotoxy(40, ainenr+12); writeln('  '); end;
   ainenr:=1;
   readln(fs, nimi);
   writeln(fv);
   writeln(fv, nimi);
   writeln(fv);
   gotoxy(25, 10);
   write(nimi:20);
   repeat
    gotoxy(40, ainenr+12);
    c:=readkey;
    case c of
     '0': begin writeln('0'); writeln(fv, aine[ainenr]:11, '   ', 'n“rk'); end;
     '1': begin writeln('1'); writeln(fv, aine[ainenr]:15, '   ', 'kasin'); end;
     '2': begin writeln('2'); writeln(fv, aine[ainenr]:15, '   ', 'rahuldav'); end;
     '3': begin writeln('3'); writeln(fv, aine[ainenr]:15, '   ', 'piisav'); end;
     '4': begin writeln('4'); writeln(fv, aine[ainenr]:15, '   ', 'hea'); end;
     '5': begin writeln('5'); writeln(fv, aine[ainenr]:15, '   ', 'v„ga hea'); end;
     'q': break
    else
     sound(1000);
     delay(100);
     nosound;
     ainenr:=ainenr-1;
    end;
    ainenr:=ainenr+1;
   until ainenr>4;

 end;
close(fs);
close(fv);
kursor_tagasi;
textmode(lastmode);
clrscr;
end.