procedure print_row(s: string; n: longint);
begin
writeln(s, '':(20-length(s)), ':', n:5);
end;
begin
print_row('string_001', 221);
print_row( 'string_02', 31);
print_row( 'string_3', 4);
print_row( 'string_04', 251);
print_row('string_005', 361);
end.
Запусти и обрати внимание: строки Left-Justified, числа - Right-Justified... Это надо было?