Из всех положительных элементов матрицы извлечь квадратный корень и округлить до ближайшего целого

var
  A: array[0..n-1,0..n-1] of Integer; {Если размер заранее неизвестен, то здесь динамический массив.}

// 1. Загрузка из TStringGrid
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      A[i,j] := StringGrid1.Cells[i,j];
 
// 2. Загрузка из TMemo (Разделители - пробелы)
var
  S: String;
 
...
 
  for i := 0 to n - 1 do begin
    S := Memo1.Lines.Strings[i];
    if S[Length(S)] <> ' ' then S := S + ' ';
    for j := 0 to n - 1 do begin
      A[i,j] := StrToInt( Copy(S, 1, Pos(' ', S) - 1) );
      Delete(S, 1, Pos(' ', S));
    end;
  end;
 
// 3. Загрузка из файла
var 
  f: TextFile;
 
...
 
  AssingFile(f, 'FileName.txt');
  Reset(f);
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      if j = n - 1 then ReadLn(f, A[i,j]) else Read(f, A[i,j]);
  CloseFile(f);

  for i := 0 to n - 1 do 
    for j := 0 to n - 1 do 
      if A[i,j] >= 0 then A[i,j] := Round( Sqrt(A[i,j]) );

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile; // Переменная для работы с файлом
  i,j,n: Integer;
  X: Integer; // Для загрузки элемента матрицы
  S: String; 
begin
  AssignFile(f, Edit1.Text); // Связываем файловую переменную с файлом
  Reset(f); // Открываем файл
 
  n := StrToInt(Edit2.Text); // Размерность матрицы, загружаемой из файла
  Memo1.Clear; // Очищаем Memo
 
  for i := 0 to n - 1 do begin
    S := '';
    for j := 0 to n - 1 do begin
      Read(f, X); // Загружаем элемент строки матрицы из файла
      if X >= 0 then X := Round( Sqrt(X) ); // Вычисляем
      S := S + IntToStr(X) + ' '; // Записываем через пробел (составляем строку матрицы)
    end;
    Memo1.Lines.Add(S); // Добавляем строку матрицы в Memo
  end;
 
  CloseFile(f); // Закрываем файл
end;