Создать текстовый файл. Вывести на экран первый символ первой строки

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var t1:textfile;
s:string;
p:integer;
zero:string;
i:integer;
n:integer;
 
begin
assignfile(t1,'D:/alis.txt');
reset(t1);
while not eof(t1) do
begin
  readln(t1,s);
    for i := 2 to length(s) do
  begin
zero:=s;
delete(s,2,i);
  end;
end;
  CloseFile(t1);
  Edit1.Text:=zero;
end;
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var L : TStringList;
begin
 L := TStringList.Create;
 L.LoadFromFile('D:/alis.txt');
 Edit1.Text := Copy(L.Strings[0], 1, 1);
 L.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t1:textfile;
s:string; 
begin
 assignfile(t1,'D:/alis.txt');
 reset(t1);
 read(t1,s);
 CloseFile(t1);
 Edit1.Text := copy(s, 1, 1);
end;

while not eof(t1) do

Edit1.Text := s[1];

//K-твое найденное число
for i := 1 to N
 for j := 1 to M
  A[i, j] := A[i, j] / K;