Ошибка в программе:написать программу, которая бы по введенному числу от 1 до 4 (номеру курса)

program one;
  var k:integer;
begin
  write ('Введите на каком вы курсе (1-4)');
  readln(k);
  
    if (k) =  1 then begin
     write('Привет первокурсник');
     if (k) =  2 then 
     write('Привет второкурсник');
     if (k) =  3 then 
     write('Привет третьекурсник');
     if (k) =  4 then 
     write('Привет четверокурсник');
     end
 else 
  write('Проверь ещё раз правильность введённого курса');
  end.

var
  k: integer;
begin
  write('Введите, на каком вы курсе (1-4): ');
  readln(k);
  if k in [1..4] then
    begin
      if k = 1 then writeln('Привет, первокурсник');
      if k = 2 then writeln('Привет, второкурсник');
      if k = 3 then writeln('Привет, третьекурсник');
      if k = 4 then writeln('Привет, четверокурсник')
    end
  else writeln('Проверь ещё раз правильность введённого курса');
end.

var
  k: integer;
begin
  write('Введите, на каком вы курсе (1-4): ');
  readln(k);
  if k = 1 then writeln('Привет, первокурсник')
  else
    if k = 2 then writeln('Привет, второкурсник')
    else
      if k = 3 then writeln('Привет, третьекурсник')
      else
        if k = 4 then writeln('Привет, четверокурсник')
        else writeln('Проверь ещё раз правильность введённого курса');
end.

var
  k: integer;
begin
  write('Введите, на каком вы курсе (1-4): ');
  readln(k);
  case k of
    1: writeln('Привет, первокурсник');
    2: writeln('Привет, второкурсник');
    3: writeln('Привет, третьекурсник');
    4: writeln('Привет, четверокурсник')
    else writeln('Проверь ещё раз правильность введённого курса')
  end
end.

const
  m: array[1..4] of string = (
    'Привет, первокурсник',
    'Привет, второкурсник',
    'Привет, третьекурсник',
    'Привет, четверокурсник');
var
  k: integer;
begin
  write('Введите, на каком вы курсе (1-4): ');
  readln(k);
  if k in [1..4] then writeln(m[k]) 
  else writeln('Проверь ещё раз правильность введённого курса')
end.