Приложение Windows Forms в Pascal(шифрование).

[Anastasia2016]

Очень нужно сделать приложение в паскале. Есть код, но как его реализовать в Форме не могу представить. Помогите пожалуйста реализовать его? Хотя бы сделать скрин приложения и кода.

program Anastasia;
var
  encString, decString: string;
  index, key: array[1 .. 255] of integer;
  i, j, T: integer;
  len, curr: integer;
begin
  writeln('Кодирование текста');
  Write('Введите текст: ');
  readln(decString);
  Write('Введите длину ключа: ');
  readln(len);
  Write('Введите числа ключа через пробел: ');
  for i := 1 to len do
    Read(key[i]);
  readln;
  for i := 1 to len do
    index[i] := i;
  for i := 1 to len do
    for j := len downto i + 1 do
    begin
      if key[index[j - 1]] > key[index[j]] then
      begin
        T := index[j - 1];
        index[j - 1] := index[j];
        index[j] := T;
      end;
    end;
  j := 1;
  encString := decString;
  for i := 1 to len do
  begin
    curr := index[i];
    while curr <= length(decString) do
    begin
      encString[j] := decString[curr];
      Inc(curr, len);
      Inc(j);
    end;
  end;
  writeln(encString);
  writeln('Декодирование текста');
  Write('Введите текст: ');
  readln(encString);
  Write('Введите длину ключа: ');
  readln(len);
  Write('Введите числа ключа через пробел: ');
  for i := 1 to len do
    Read(key[i]);
  readln;
  decString := encString;
  j := 1;
  for i := 1 to len do
  begin
    curr := key[i];
    while curr <= length(encString) do
    begin
      decString[curr] := encString[j];
      Inc(j);
      Inc(curr, len);
    end;
  end;
  writeln(decString);
end.