var
D:TextFile;
str,imya:string;
i,n,k:integer;
begin
writeln('vedite imya faila');
readln(Imya);
writeln('vvedite N');
readln(N);
writeln('vvedite K');
readln(K);
for I := 1 to k do begin
str:=str+'*';
end;
{связываем дискриптор с конкретным файлом}
AssignFile(D,Imya);
{создаем файл для записи данных}
rewrite(D);
for I := 1 to n do
writeln(D,str);
CloseFile(D);
readln;
end.