Составьте программу для вывода на экран фамилий людей, старше 50 лет

const
  n = 10;//
        // размерность массивов(увеличивать оба размера)
  m = 10;//
 
label
1;
 
var
  a: array[1..n] of string;
  b: array[1..m] of integer;
  i, j, k, c: integer;
 
BEGIN
  
  j := 1;
  for i := 1 to n do
  begin
    1: writeln('Введите ', i, '-ю фамилию: ');
    read(a[i]);
    writeln('Введите год рождения: ');
    readln(b[j]);
    if b[j] > 2017
    then begin
      writeln('Год рождения не может превысить 2017');
      goto 1;  
    end;
    inc(j);
  end;
  
  for i := 1 to m do
  begin
    k := 2017 - b[i];
    c := b[i] mod 10;
    if k > 50
      then if c = 1
        then writeln(a[i], ' - ', k, ' год')
      else if (c = 2) or (c = 3) or (c = 4)
        then writeln(a[i], ' - ', k, ' года')
      else if (c = 0) or (c = 5) or (c = 6) or (c = 7) or (c = 8) or (c = 9)
        then writeln(a[i], ' - ', k, ' лет');
  end;  
  
END.

label
1;
 
var
  a: array of string;
  b: array of integer;
  i, j, k, c, n, m: integer;
 
begin
  
  writeln('Введите кол-во человек: ');
  readln(n);  
  m := n;
  
  SetLength(a, n);
  SetLength(b, m);
  
  j := 0;
  for i := 0 to n-1 do
  begin
    1: writeln('Введите ', i+1, '-ю фамилию: ');
    read(a[i]);
    writeln('Введите год рождения: ');
    readln(b[j]);
    if b[j] > 2017
    then begin
      writeln('Год рождения не может превысить 2017');
      goto 1;  
    end;
    inc(j);
  end;
  
  for i := 0 to m-1 do
  begin
    k := 2017 - b[i];
    c := b[i] mod 10;
    if k > 50
      then if c = 1
        then writeln(a[i], ' - ', k, ' год')
      else if (c = 2) or (c = 3) or (c = 4)
        then writeln(a[i], ' - ', k, ' года')
      else if (c = 0) or (c = 5) or (c = 6) or (c = 7) or (c = 8) or (c = 9)
        then writeln(a[i], ' - ', k, ' лет');
  end;  
  
end.