помоги пожалуйста с задачей в паскале:Вводится целое число К. вывести фразу

Var
  k:integer;
begin
  Write('Задайте число цветов: ');
  Readln(k);
  if k=0 then Writeln('Я не посадил ни 1-го цветка')
  else
  begin
    if kgt;0 then Write('Я посадил ',k,' цвет')
    else
    begin
      k:=-k;
      Write('Я выполол ',k,' цвет')
    end;
    case k mod 100 of
    11..19:Write('ов');
    else
      case k mod 10 of
      1:Write('ок');
      2..4:Write('ка');
      else Write('ов');
      end
    end
  end
end.

Var
k, i, j:integer;
begin

readln(k);
j:=1;

if klt;=0 then
writeln('Я не посадил цветочки');

if ((k mod 10 = 1) and (klt;gt;11)) then
writeln('Я посадил k цветок');

for i:=12 to 14 do begin
j:=j+1;
if ((k mod 10 = j) and (klt;gt;i)) then
writeln('Я посадил k цветка');
end;

if k mod 10 gt;4 then
writeln('Я посадил k цветов');

end.