01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / G

Uses Crt;

Const
 N=100;

Type
 Names = Array [1..N] of String;
 Temp = Array [1..N] of Integer;
 Pf = record
       Nam:Names;
       T : Temp;
      End;

Var
 i,m,v : Integer;
 f : File of Pf;
 S : String;

Procedure Gon(S:String);
 Var
  f : File of Pf;

 Begin
  Assign(f,'Sanya.pas');
  Reset(f);
  Write(F,S);
  Close(f);
 End;

Begin
 Repeat
  ClrScr;
  Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў«® Ј®а®¤®ў');
  Readln(m);
 Until (m>0) and (m<=N);
 Writeln('‚ўҐ¤ЁвҐ б।­оо ⥬ЇҐа вгаг');
 Readln(v);

 For i:=1 to m do
  Begin
   Write(i,'-л© Ј®а®¤:');
   Readln(nam[i]);
   Write(i,'-®Ј® Ј®а®¤  ⥬ЇҐа вга :');
   Readln(t[i]);
  End;
 s:='';
 For i:=1 to m do
  Begin
   If t[i]<v
    Then s:=nam[i];
  End;
End.