Напечатать на экране 20раз слово . использовать цикл по счетчику ! напечатать в столбец,затем в строку!

TurboPascal.
beginWhile y<20 dobeginy:=y+1;Writeln(y,'.Привет­');end;end.

Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.