procedure TForm1.StudName();
begin
  Randomize; //перемешаем случайные числа
  surnI := Random(20); //выбираем имя псевдослучайно
  surn2 := Random(5); //выбираем имя псевдослучайно
  //какое число выпадет, то имя и вставим в строку ввода (Edit3) имя
  if (surnI = 0) then Edit3.Text:='Иванов';
  if (surnI = 1) then Edit3.Text:='Артемьева';
  if (surnI = 2) then Edit3.Text:='Петров';
  if (surnI = 3) then Edit3.Text:='Фокина';
  if (surnI = 4) then Edit3.Text:='Сидоров';
  if (surnI = 5) then Edit3.Text:='Гончарова';
  if (surnI = 6) then Edit3.Text:='Шишкин';
  if (surnI = 7) then Edit3.Text:='Чернова';
  if (surnI = 8) then Edit3.Text:='Гусев';
  if (surnI = 9) then Edit3.Text:='Белова';
  if (surnI = 10) then Edit3.Text:='Петренко';
  if (surnI = 11) then Edit3.Text:='Смоленцева';
  if (surnI = 12) then Edit3.Text:='Дудкин';
  if (surnI = 13) then Edit3.Text:='Варина';
  if (surnI = 14) then Edit3.Text:='Самойлов';
  if (surnI = 15) then Edit3.Text:='Зинина';
  if (surnI = 16) then Edit3.Text:='Гаврилов';
  if (surnI = 17) then Edit3.Text:='Павлова';
  if (surnI = 18) then Edit3.Text:='Семёнов';
  if (surnI = 19) then Edit3.Text:='Томина';
  if (surn2 = 0) then Edit4.Text:='доцент';
  if (surn2 = 1) then Edit4.Text:='декан';
  if (surn2 = 2) then Edit4.Text:='доктор наук';
  if (surn2 = 3) then Edit4.Text:='старший препод';
  if (surn2 = 4) then Edit4.Text:='аспирант';
  if (surn2 = 5) then Edit4.Text:='доцент';

  //Randomize; //перемешаем случайные числа
  //Edit4.Text:=IntToStr(Random(10) + 19); //вставим в строку ввода возраст
end;