Рассмотрим форматированный вывод на экран с помощью процедур Write и WriteLn. Окончание ln-означает, что курсор должен перейти на начало следующей строки. Таким образом, эти функции почти идентичны.

Write (Str : x);

Параметр x означает, что строка будет занимать x ячеек и выравниваться по правому краю.
Если его не указать, то строка выведется с выравниванем по левую сторону и будет занимать количество ячеек, равное длине строки.

                тест

            ещё тест

тест

ещё тест

Аналогично со строками, x означает вывод числа с выравниванием по правую сторону.

Write (Num : x);

writeln (12 : 10);

        12

writeln (12);

12

Появляется дополнительный параметр y, означающий количество знаков (цифр) после точки, которые мы хотим вывести. Например, с точностью y = 3 знаков. Его можно не указывать в случае, когда вы хотите вывести число в «научном» виде.

Write (Num : x : y);

writeln (12.304 : 10);

 1.2E+0001

writeln (12.304 : 10 : 2);

     12.30

writeln;
{ Выводит числа с промежутком в 4 позиции один от другого, выравнивая по правому краю }
for i:=1 to M do write (A[i] : 4);

 -10   3  14 -87

type arr= array[1..P,1..Q] of real;
procedure ShowMatrix(var A: arr; M,N: integer);
var i,j: word;
begin
     Writeln;
     For i:=1 to M do
     begin
          Writeln; { переход на следующую строку }
          for j:=1 to N do Write (A[i,j]:8:2);
     end;
end;

   29.33   28.00   20.67
   23.33   19.00   10.33

type
   TDataBook=record
     Name: string[30];
     Phone: string[10];
     Street: string[30];
     Gender: Char; {(M)ale/(F)emale}
   end;
 
const Rec=3; { Count of Records }
 
var
   DataBook: TDataBook;
   A: Array[1..Rec] of TDataBook;
   i: word;
 
begin
     With DataBook do
     begin
          for i:=1 to Rec do
          with A[i] do
          begin
               writeln;
               write('Name: '); readln(Name);
               write('Phone: '); readln(phone);
               write('Street: '); readln(street);
               write('Gender [(M)ale/(F)emale]: '); readln(gender);
          end;
 
      Writeln;
          writeln ('Name':30, 'Phone':10, 'Street':30, 'Gender':7);
 
      for i:=1 to Rec do
          with A[i] do
           writeln (Name:30, Phone:10, Street:30, Gender:2);
     end;
     writeln('Press Enter.');
     readln;
end.

                          Name     Phone                        Street Gender
                          Ivan     2-3-4                        Lenina M
                         Peter     3-4-5                        Vyazov M
                          Vika     4-5-7                          Duby F