Как правильно решить н3/4/5?

Program Ksushaa1999PasswordRepeat;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
repeat
    writeln('Введите пароль ');
    readln (vvod);
  until vvod=pass;
writeln('Принято');
end.

Program Ksushaa1999PasswordWhile;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  while vvod<>pass do
    begin
      writeln('Введите пароль ');
      readln (vvod);
    end;
  writeln('Принято');
end.

Program PKsushaa1999PasswordIf;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
label
  metka;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
metka:  writeln('Введите пароль ');
  readln (vvod);
  if vvod<>pass then goto metka;
  writeln('Принято');
end.

Program slova; - название программы

var - раздел описания переменных

d : string объявляем переменную, которая называется "d" с типо string(строка)

i, k : integer; объявляем еще 2 переменные с именами "i" и "k", тип у них целочисленный.

begin - начало исполнения программы (в данном случае)

write('Введите предложение'); - Вывод на экран сообщения: Введите предложение

read(d) - даем возможность пользователю ввести строку с клавиатуры, и сохраняем ее в переменную d

for i := 1 to length(d) do - цикл, который будет идти от 1, до длины строки (d), короче говоря, до последнего символа.

if (d[i] = ' ' then - условие, которое ищет пробел в предложении

k := k + 1; увеличиваем переменную на 1, если условие выполняется.

writeln('В вашем предложении:', k+1) вывод на экран сообщения "В вашем предложении", а затем вывод переменой k увеличенной на 1.