Исправить вывод с консоли на форму

uses crt; 
const nmax=15; 
Const names: Array[1..15] of String=('<Васечкин>', 
'<Галямов>','<Пететров>','<Гришаев>','<Сандлер>','<Павлов>', 
'<Дюбель>','<Морозов>','<Светлов>','<Новик>','<Юсупов>', 
'<Волков>','<Квяткевич>','<Веснич>','<Свиридов>'); 
Type student = record 
Surname: String[15]; 
Rating:byte; 
end; 
var s:array[1..nmax] of student; 
i,k:byte; 
begin 
Randomize; 
for i:=1 to 15 do 
begin 
s[i].Surname:= names[i]; 
s[i].Rating:=random(10)+1; 
end; 
k:=0; 
writeln('Студенты допущенные до след экзамена:'); 
for i:=1 to 15 do 
if s[i].Rating > 3 then 
begin 
k:=1; 
writeln(s[i].Surname,' ',s[i].Rating); 
end; 
if k=0 then write('Таких студентов нет!'); 
readln 
end.

unit Unit1;
 
interface
 
uses System, System.Drawing, System.Windows.Forms;
 
type
  Form1 = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private 
    {$resource Unit1.Form1.resources}
    textBox1: TextBox;
    listBox1: ListBox;
    button1: Button;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public 
    constructor;
    begin
      InitializeComponent;
    end;
  end;
 
implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
const
  nmax = 15;
const
  names: Array[1..15] of String = ('<Васечкин>', 
  '<Галямов>', '<Пететров>', '<Гришаев>', '<Сандлер>', '<Павлов>', 
  '<Дюбель>', '<Морозов>', '<Светлов>', '<Новик>', '<Юсупов>', 
  '<Волков>', '<Квяткевич>', '<Веснич>', '<Свиридов>');
type
  student = record 
    Surname: String[15]; 
    Rating: integer; 
  end;
var
  s: array[1..nmax] of student;
 
begin
  PABCSystem.Randomize; 
  for var i := 1 to nmax do 
  begin
    s[i].Surname := names[i]; 
    s[i].Rating := PABCSystem.Random(10) + 1; 
  end; 
  var k := 0; 
  TextBox1.Text := 'Студенты допущенные до след экзамена:';
  for var i := 1 to nmax do 
    if s[i].Rating > 3 then 
    begin
      inc(k);
      ListBox1.Items.Add(s[i].Surname + ' ' + IntToStr(s[i].Rating));
    end; 
  if k <> 0 then 
    TextBox1.Text := 'Студентов допущено до след экзамена: ' + IntToStr(k);
end;
 
end.