program z14_06;
Const nmax=100;
Type Pupil=Record
surname : String;
nat : String;
age : Byte;
End;
List=Array [1..nmax] Of Pupil;
Var
A : List;
n,i : Byte;
f:text;
Begin
Assign(f, 'g:\ttt.txt');
ReSet (f);
n := 0;
While Not Eof(f) Do
Begin
n:=n+1;
With A[n] Do
Begin
ReadLn(f, surname);
ReadLn(f, nat);
ReadLn(f, age);
End;
End;
close(f);
Assign (f, 'g:\output.txt');
Rewrite(f);
i:=1;
While (i<=n) And (A[i].nat<>'rus') Do i:=i+1;
If i<=n Then
WriteLn(f, 'samii molodoi russkii uchastnik: ', A[i].surname);
i:=n;
While (i>=1) And (A[i].nat<>'rus') Do Dec(i);
If i>=1 Then WriteLn(f, 'samii poziloi russkii uchastnik: ', A[i].surname);
Close(f);
ReadLn;
End.